Created
August 31, 2015 16:04
-
-
Save jungle-boogie/ac7b7d410375466120b8 to your computer and use it in GitHub Desktop.
sqawk tests fail
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| % make | |
| tclsh tools/assemble.tcl sqawk-dev.tcl > sqawk.tcl | |
| tclsh tests.tcl | |
| ==== test1 Handle broken pipe, read from stdin FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename ch { | |
| puts $ch "line 1\nline 2\nline 3" | |
| close $ch | |
| set result [sqawk-tcl {select a0 from a} < $filename | head -n 1] | |
| } | |
| return $result | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl {select a0 from a} < $filename | head -n 1" | |
| ("uplevel" body line 4) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename ch { | |
| puts $ch "line 1\nline 2\nline 3" | |
| close $ch | |
| set result [sqawk-tcl {select a0 from a}..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8095 1 | |
| ==== test1 FAILED | |
| ==== test3 JOIN on two files from examples/hp/ FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename { | |
| sqawk-tcl { | |
| select a1, b1, a2 from a inner join b on a2 = b2 | |
| where b1 < 10000 order by b1 | |
| } examples/hp/MD5SUMS examples/hp/du-bytes > $filename | |
| set result [exec diff examples/hp/results.correct $filename] | |
| } | |
| return $result | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl { | |
| select a1, b1, a2 from a inner join b on a2 = b2 | |
| where b1 < 10000 order by b1 | |
| } examples/hp/MD..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename { | |
| sqawk-tcl { | |
| select a1, b1, a2 from a inner join b on a2 = b2 | |
| where b1 < 10000 o..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8099 1 | |
| ==== test3 FAILED | |
| ==== test4 JOIN on files from examples/three-files/, FS setting FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename { | |
| set dir examples/three-files/ | |
| sqawk-tcl -FS , { | |
| select a1, a2, b2, c2 from a inner join b on a1 = b1 | |
| inner join c on a1 = c1 | |
| } $dir/1 FS=_ FS=, $dir/2 $dir/3 > $filename | |
| unset dir | |
| set result [exec diff examples/three-files/results.correct $filename] | |
| } | |
| return $result | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl -FS , { | |
| select a1, a2, b2, c2 from a inner join b on a1 = b1 | |
| inner join c on a1 = c1 | |
| } $dir/1 FS..." | |
| ("uplevel" body line 3) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename { | |
| set dir examples/three-files/ | |
| sqawk-tcl -FS , { | |
| select a1, a2, b2, c2 from a inner ..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8100 1 | |
| ==== test4 FAILED | |
| ==== test5 Custom table names FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename1 ch1 { | |
| with-temp-files filename2 ch2 { | |
| puts $ch1 "foo 1\nfoo 2\nfoo 3" | |
| puts $ch2 "bar 4\nbar 5\nbar 6" | |
| close $ch1 | |
| close $ch2 | |
| set result [sqawk-tcl { | |
| select foo2 from foo; select b2 from b | |
| } table=foo $filename1 $filename2] | |
| } | |
| } | |
| return $result | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl { | |
| select foo2 from foo; select b2 from b | |
| } table=foo $filename1 $filename2" | |
| ("uplevel" body line 6) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename2 ch2 { | |
| puts $ch1 "foo 1\nfoo 2\nfoo 3" | |
| puts $ch2 "bar 4\nbar 5\nbar 6" | |
| close ..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename1 ch1 { | |
| with-temp-files filename2 ch2 { | |
| puts $ch1 "foo 1\nfoo 2\nfoo 3" | |
| puts $ch2 ..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8101 1 | |
| ==== test5 FAILED | |
| ==== test6 Custom table names and prefixes FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename1 ch1 filename2 ch2 { | |
| puts $ch1 "foo 1\nfoo 2\nfoo 3" | |
| puts $ch2 "bar 4\nbar 5\nbar 6" | |
| close $ch1 | |
| close $ch2 | |
| set result [sqawk-tcl { | |
| select foo.x2 from foo; select baz2 from bar | |
| } table=foo prefix=x $filename1 table=bar prefix=baz $filename2] | |
| } | |
| return $result | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl { | |
| select foo.x2 from foo; select baz2 from bar | |
| } table=foo prefix=x $filename1 table=bar prefix=baz $filename2" | |
| ("uplevel" body line 6) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename1 ch1 filename2 ch2 { | |
| puts $ch1 "foo 1\nfoo 2\nfoo 3" | |
| puts $ch2 "bar 4\nbar 5\nbar 6" | |
| clos..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8102 1 | |
| ==== test6 FAILED | |
| ==== test7 Header row FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename ch { | |
| puts $ch "name\tposition\toffice\tphone" | |
| puts $ch "Smith\tCEO\t10\t555-1234" | |
| puts $ch "James\tHead of marketing\t11\t555-1235" | |
| puts $ch "McDonald\tDeveloper\t12\t555-1236\tGood at tables" | |
| close $ch | |
| set result [sqawk-tcl { | |
| select name, office from staff | |
| where position = "CEO" | |
| or staff.phone = "555-1234" | |
| or staff.a5 = "Good at tables" | |
| } FS=\t table=staff prefix=a header=1 $filename] | |
| } | |
| return $result | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl { | |
| select name, office from staff | |
| where position = "CEO" | |
| or staff.phone = "555-1234" | |
| ..." | |
| ("uplevel" body line 7) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename ch { | |
| puts $ch "name\tposition\toffice\tphone" | |
| puts $ch "Smith\tCEO\t10\t555-1234" | |
| puts $c..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8103 1 | |
| ==== test7 FAILED | |
| ==== test9 merge option FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename ch { | |
| set result {} | |
| puts $ch "foo 1 foo 2 foo 3" | |
| puts $ch "bar 4 bar 5 bar 6" | |
| close $ch | |
| lappend result [sqawk-tcl -OFS - { | |
| select a1, a2, a3 from a | |
| } {merge=0-1,2-3,4-5} $filename] | |
| lappend result [sqawk-tcl -OFS - { | |
| select a1, a2, a3 from a | |
| } {merge=0 1 2 3 4 5} $filename] | |
| } | |
| return [lindex [lsort -unique $result] 0] | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 33) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl -OFS - { | |
| select a1, a2, a3 from a | |
| } {merge=0-1,2-3,4-5} $filename" | |
| ("uplevel" body line 6) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename ch { | |
| set result {} | |
| puts $ch "foo 1 foo 2 foo 3" | |
| puts $ch "bar 4 bar 5 bar 6"..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8104 1 | |
| ==== test9 FAILED | |
| ==== test11 Default output format FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename ch { | |
| puts $ch "line 1\nline 2\nline 3" | |
| close $ch | |
| set result [sqawk-tcl -output awk {select a0 from a} $filename] | |
| } | |
| return $result | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl -output awk {select a0 from a} $filename" | |
| ("uplevel" body line 4) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename ch { | |
| puts $ch "line 1\nline 2\nline 3" | |
| close $ch | |
| set result [sqawk-tcl -output awk {selec..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8107 1 | |
| ==== test11 FAILED | |
| ==== test12 Verbatim reproduction of input in a0 FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename ch { | |
| puts $ch "test:\n\ttclsh tests.tcl\n\"\{" | |
| close $ch | |
| set result [sqawk-tcl {select a0 from a} $filename] | |
| } | |
| return $result | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl {select a0 from a} $filename" | |
| ("uplevel" body line 4) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename ch { | |
| puts $ch "test:\n\ttclsh tests.tcl\n\"\{" | |
| close $ch | |
| set result [sqawk-tcl {select a0..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8108 1 | |
| ==== test12 FAILED | |
| ==== test13 Empty lines FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename ch { | |
| puts $ch "\n\n\n" | |
| close $ch | |
| set result {} | |
| lappend result [sqawk-tcl {select a1 from a} $filename] | |
| lappend result [sqawk-tcl {select a1 from a} format=csv $filename] | |
| } | |
| return $result | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl {select a1 from a} $filename" | |
| ("uplevel" body line 5) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename ch { | |
| puts $ch "\n\n\n" | |
| close $ch | |
| set result {} | |
| lappend result [sqawk-tcl {sel..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8109 1 | |
| ==== test13 FAILED | |
| ==== test14 CSV output FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename ch { | |
| puts $ch "a,b\n1,2" | |
| close $ch | |
| set result {} | |
| lappend result [sqawk-tcl -output awk {select a1 from a} $filename] | |
| lappend result [sqawk-tcl -output csv {select a1 from a} $filename] | |
| } | |
| return $result | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl -output awk {select a1 from a} $filename" | |
| ("uplevel" body line 5) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename ch { | |
| puts $ch "a,b\n1,2" | |
| close $ch | |
| set result {} | |
| lappend result [sqawk-tcl -o..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8110 1 | |
| ==== test14 FAILED | |
| ==== test15 Tcl output FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename ch { | |
| puts $ch "1\t2\tHello, World!\t " | |
| close $ch | |
| set result [sqawk-tcl -FS \t -output tcl {select a1,a2,a3,a4 from a} $filename] | |
| } | |
| return $result | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl -FS \t -output tcl {select a1,a2,a3,a4 from a} $filename" | |
| ("uplevel" body line 4) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename ch { | |
| puts $ch "1\t2\tHello, World!\t " | |
| close $ch | |
| set result [sqawk-tcl -FS \t -output tc..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8111 1 | |
| ==== test15 FAILED | |
| ==== test16 Table output FAILED | |
| ==== Contents of test case: | |
| with-temp-files filename ch { | |
| puts $ch "a,b,c\nd,e,f\ng,h,i" | |
| close $ch | |
| set result [sqawk-tcl -FS , -output table {select a1,a2,a3 from a} $filename] | |
| } | |
| return $result | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl -FS , -output table {select a1,a2,a3 from a} $filename" | |
| ("uplevel" body line 4) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename ch { | |
| puts $ch "a,b,c\nd,e,f\ng,h,i" | |
| close $ch | |
| set result [sqawk-tcl -FS , -output table ..." | |
| ("uplevel" body line 2) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8112 1 | |
| ==== test16 FAILED | |
| ==== test-nf-1-crop NF mode crop FAILED | |
| ==== Contents of test case: | |
| set result {} | |
| with-temp-files filename ch { | |
| puts $ch "A B" | |
| puts $ch "A B C" | |
| puts $ch "A B C D" | |
| close $ch | |
| foreach nf {0 1 2 3} { | |
| lappend result [sqawk-tcl -FS " " -NF $nf -MNF crop -output tcl {select * from a} $filename] | |
| } | |
| } | |
| return [join $result \n] | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl -FS " " -NF $nf -MNF crop -output tcl {select * from a} $filename" | |
| ("foreach" body line 2) | |
| invoked from within | |
| "foreach nf {0 1 2 3} { | |
| lappend result [sqawk-tcl -FS " " -NF $nf -MNF crop -output tcl {select * from a} $filename] | |
| }" | |
| ("uplevel" body line 6) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename ch { | |
| puts $ch "A B" | |
| puts $ch "A B C" | |
| puts $ch "A B C D" | |
| close $ch | |
| ..." | |
| ("uplevel" body line 3) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8113 1 | |
| ==== test-nf-1-crop FAILED | |
| ==== test-nf-2-crop NF mode expand FAILED | |
| ==== Contents of test case: | |
| set result {} | |
| with-temp-files filename ch { | |
| puts $ch "A B C D" | |
| puts $ch "A B C" | |
| puts $ch "A B" | |
| close $ch | |
| foreach nf {2 3 4} { | |
| lappend result [sqawk-tcl -FS " " -NF $nf -MNF crop -output tcl {select * from a} $filename] | |
| } | |
| } | |
| return [join $result \n] | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl -FS " " -NF $nf -MNF crop -output tcl {select * from a} $filename" | |
| ("foreach" body line 2) | |
| invoked from within | |
| "foreach nf {2 3 4} { | |
| lappend result [sqawk-tcl -FS " " -NF $nf -MNF crop -output tcl {select * from a} $filename] | |
| }" | |
| ("uplevel" body line 6) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename ch { | |
| puts $ch "A B C D" | |
| puts $ch "A B C" | |
| puts $ch "A B" | |
| close $ch | |
| ..." | |
| ("uplevel" body line 3) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8114 1 | |
| ==== test-nf-2-crop FAILED | |
| ==== test-nf-3-expand NF mode expand FAILED | |
| ==== Contents of test case: | |
| set result {} | |
| with-temp-files filename ch { | |
| puts $ch "A B" | |
| puts $ch "A B C" | |
| puts $ch "A B C D" | |
| close $ch | |
| foreach nf {0 1 2 3} { | |
| lappend result [sqawk-tcl -FS " " -NF $nf -MNF expand -output tcl {select * from a} $filename] | |
| } | |
| } | |
| return [join $result \n] | |
| ---- Test generated error; Return code was: 1 | |
| ---- Return code should have been one of: 0 2 | |
| ---- errorInfo: unknown more: "" | |
| while executing | |
| "error "unknown more: \"$mode\"" " | |
| (procedure "::sqawk::parsers::awk::trim-record" line 7) | |
| invoked from within | |
| "::sqawk::parsers::awk::trim-record $trim" | |
| (procedure "::sqawk::parsers::awk::parse" line 21) | |
| invoked from within | |
| "${ns}::parse $data [::sqawk::override-keys $parseOptions $fileOptions]" | |
| (procedure "::sqawk::sqawk::Snit_methodParse" line 13) | |
| invoked from within | |
| "$self Parse $metadata(format) $raw $fileOptions" | |
| (procedure "::sqawk::sqawk::Snit_methodread-file" line 29) | |
| invoked from within | |
| "$sqawkObj read-file $file" | |
| (procedure "::sqawk::script::main" line 17) | |
| invoked from within | |
| "::sqawk::script::main $argv0 $argv" | |
| invoked from within | |
| "if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} { | |
| ::sqawk::script::main $argv0 $argv | |
| if {$::sqawk::script::profi..." | |
| (file "sqawk.tcl" line 965) | |
| while executing | |
| "exec [info nameofexecutable] sqawk.tcl {*}$args" | |
| (procedure "sqawk-tcl" line 2) | |
| invoked from within | |
| "sqawk-tcl -FS " " -NF $nf -MNF expand -output tcl {select * from a} $filename" | |
| ("foreach" body line 2) | |
| invoked from within | |
| "foreach nf {0 1 2 3} { | |
| lappend result [sqawk-tcl -FS " " -NF $nf -MNF expand -output tcl {select * from a} $filename] | |
| }" | |
| ("uplevel" body line 6) | |
| invoked from within | |
| "uplevel 1 $script" | |
| (procedure "with-temp-files" line 16) | |
| invoked from within | |
| "with-temp-files filename ch { | |
| puts $ch "A B" | |
| puts $ch "A B C" | |
| puts $ch "A B C D" | |
| close $ch | |
| ..." | |
| ("uplevel" body line 3) | |
| invoked from within | |
| "uplevel 1 $script" | |
| ---- errorCode: CHILDSTATUS 8115 1 | |
| ==== test-nf-3-expand FAILED | |
| *** Error code 1 | |
| Stop. | |
| make: stopped in /home/sean/bin/sqawk |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Try out version 0.13.1. The problem should be fixed in it.