1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
package require rivetlib
::tcltest::test rivetlib-1.1 {lassign_array basic assignement} {
set array_vars {a b c d}
set list_vals {1 2 3 4}
::rivet::lassign_array $list_vals assigned_array {*}$array_vars
set l {}
foreach av $array_vars { lappend l $assigned_array($av) }
set l
} {1 2 3 4}
::tcltest::test rivetlib-1.2 {lassign_array returned values} {
set array_vars {a b c d}
set list_vals {1 2 3 4 5 6 7}
set rem [::rivet::lassign_array $list_vals assigned_array {*}$array_vars]
set rem
} {5 6 7}
::tcltest::test rivetlib-2.1 {lremove regexp removal} {
set rem [::rivet::lremove -all -regexp {aa e111 bab aa} aa]
} {e111 bab}
::tcltest::test rivetlib-2.1 {lremove multiple regexp removal} {
set rem [::rivet::lremove -all -regexp {aa e111 bab aa} aa "e\\d+"]
} {bab}
::tcltest::test rivetlib-2.2 {lremove glob style multiple removal} {
set rem [::rivet::lremove -all -glob {aa e111 bab aa} e* b*]
} {aa aa}
|
