diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-02 16:33:39 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-05-02 16:33:39 (GMT) |
| commit | df75b9195608f60545ced2c165c87ad65288c66d (patch) | |
| tree | 712d642868ad31f65ef56fb1f8ecc6731a6bf311 /tests/scan.test | |
| parent | 43b5729ddf6c0793a6f6bb7c35dd30f4ea9ece17 (diff) | |
| download | tcl-df75b9195608f60545ced2c165c87ad65288c66d.zip tcl-df75b9195608f60545ced2c165c87ad65288c66d.tar.gz tcl-df75b9195608f60545ced2c165c87ad65288c66d.tar.bz2 | |
Fix [ab123cfd3d] - scan ubsan. Tx chrstphrchvz for patch
Diffstat (limited to 'tests/scan.test')
| -rw-r--r-- | tests/scan.test | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/tests/scan.test b/tests/scan.test index 300335e..cd2ba63 100644 --- a/tests/scan.test +++ b/tests/scan.test @@ -852,6 +852,11 @@ test scan-13.8 {Tcl_ScanObjCmd, inline XPG case lots of arguments} { set msg [scan "10 20 30" {%100$d %5$d %200$d}] list [llength $msg] [lindex $msg 99] [lindex $msg 4] [lindex $msg 199] } {200 10 20 30} +test scan-13.9 {Tcl_ScanObjCmd, inline XPG case limit error} -body { + # Note this applies to 64-bit builds as well so long as max number of + # command line arguments allowed for scan command is INT_MAX + scan abc {%2147483648$s} +} -result {"%n$" argument index out of range} -returnCodes error # scan infinities - not working |