Differences From Artifact [3226475418]:

• Executable file test.tcl — part of check-in [6641266e0b] at 2017-10-13 19:59:57 on branch trunk — Fixed typo and added test for process_command_line (user: rkeene, size: 5278) [annotate] [blame] [check-ins using]

To Artifact [63a2456439]:

• Executable file test.tcl — part of check-in [f6d387c96c] at 2017-10-13 20:34:02 on branch trunk — Added enough critcl to be handle tcllib (user: rkeene, size: 5444) [annotate] [blame] [check-ins using]

223
224
225
226
227
228
229











230

	return(TCL_OK);
}
$handle go
if {[testCCommand] ne "OKAY"} {
	error "\[testCCommand\] Invalid result"
}












exit 0

>
>
>
>
>
>
>
>
>
>
>

223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241

	return(TCL_OK);
}
$handle go
if {[testCCommand] ne "OKAY"} {
	error "\[testCCommand\] Invalid result"
}

# Critcl test
package require -exact critcl 0
critcl::ccode {
#define test 1234
}

critcl::cproc test14 {int x} int {
	return(x + test);
}
puts "Test14: [test14 3]"

exit 0