|
|
@ -1,7 +1,7 @@
|
|
|
|
#!/bin/sh -e
|
|
|
|
#!/bin/sh -e
|
|
|
|
cd ${0%/*}
|
|
|
|
cd ${0%/*}
|
|
|
|
. ./lib.sh
|
|
|
|
. ./lib.sh
|
|
|
|
plan 26
|
|
|
|
plan 27
|
|
|
|
|
|
|
|
|
|
|
|
rm -rf test.dir
|
|
|
|
rm -rf test.dir
|
|
|
|
mkdir test.dir
|
|
|
|
mkdir test.dir
|
|
|
@ -91,6 +91,15 @@ in
|
|
|
|
!
|
|
|
|
!
|
|
|
|
check_test 'let expression' -eq 2 'mlist inbox | mpick ./expr | wc -l'
|
|
|
|
check_test 'let expression' -eq 2 'mlist inbox | mpick ./expr | wc -l'
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
cat <<! >expr
|
|
|
|
|
|
|
|
let foo = from.addr == "peter@example.org"
|
|
|
|
|
|
|
|
let bar = from.disp == "Peter Example"
|
|
|
|
|
|
|
|
# random comment
|
|
|
|
|
|
|
|
in
|
|
|
|
|
|
|
|
foo && foo
|
|
|
|
|
|
|
|
!
|
|
|
|
|
|
|
|
check_test 'let expression double free' -eq 2 'mlist inbox | mpick ./expr | wc -l'
|
|
|
|
|
|
|
|
|
|
|
|
cat <<! >expr
|
|
|
|
cat <<! >expr
|
|
|
|
let foo =
|
|
|
|
let foo =
|
|
|
|
let bar = from.disp == "Peter Example"
|
|
|
|
let bar = from.disp == "Peter Example"
|
|
|
|