src/test_oblists

   1 #!/bin/sh
   2
   3 assert_eq () {
   4     [ "$1" = "$2" ] || ( echo Assertion failed: "\"$1\"" = "\"$2\""; exit 1 )
   5 }
   6
   7 assert_eq foo "$(echo foo | ./muddle)"
   8 assert_eq '(foo bar baz)' "$(echo '(foo bar baz)' | ./muddle)"
   9 assert_eq '(foo foo foo)' "$(echo '(foo foo foo)' | ./muddle)"