diff options
Diffstat (limited to 'tests/ensemble.test')
-rw-r--r-- | tests/ensemble.test | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/tests/ensemble.test b/tests/ensemble.test new file mode 100644 index 0000000..507cd20 --- /dev/null +++ b/tests/ensemble.test @@ -0,0 +1,47 @@ +source [file dirname [info script]]/testing.tcl + +needs constraint jim +needs package ensemble + +# Let's create some procs for our ensembles + +proc {foo a} {x} { + incr x +} +proc {foo b} {y} { + incr y 2 +} +test ensemble-1.1 {Basic ensemble} { + ensemble foo + foo a 5 +} 6 + +test ensemble-1.2 {ensemble -commands} { + foo -commands +} {a b} + +test ensemble-1.3 {ensemble -help} { + foo -help +} {Usage: "foo command ... ", where command is one of: a, b} + +test ensemble-1.4 {ensemble with invalid subcommand} -body { + foo c x +} -returnCodes error -result {invalid command name "foo c"} + +test ensemble-1.5 {ensemble add new commands} { + proc {foo c} {z} { + append z @ + } + foo c x +} {x@} + +test ensemble-1.6 {ensemble remove mapping} -body { + rename {foo a} "" + foo a 4 +} -returnCodes error -result {invalid command name "foo a"} + +test ensemble-1.7 {ensemble updated -commands} { + foo -commands +} {b c} + +testreport |