summaryrefslogtreecommitdiff
path: root/test.tcl
blob: 290994cdddab136a84d984274acb0dbb8cdb4d06 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/bin/tclsh

set tests {
    {exec curl -i http://localhost:8000}
    {exec curl -i http://localhost:8000/style.css}
    {exec curl -i http://localhost:8000/index.html}
}

if [expr ($argc == 0)] {
	set j 0;
	foreach i $tests {
		puts "($j) : [string range $i 13 end]"
		incr j
	}
} elseif [expr ($argc == 1)] {
	set a [lindex $argv 0];
	if { ($a >= 0) && ($a < [llength $tests]) } {
		puts [eval [lindex $tests $a]]
	} else {
		puts "Argument not in range."
	}
}