more tests

Makefile

@@ -0,0 +1,5 @@
+build:
+	ocamlbuild pplex.byte
+test:
+	@PPLEX=$(PWD)/_build/pplex.byte cmdcheck tests/*.t
+	find tests -path '*.t/*' \( -name stdin -o -name '*.ml' \) -exec ./tests/check-roundtrip -f -w {} \;

tests/char-crlf.t/TESTRECIPE

@@ -0,0 +1,42 @@
+#!/bin/bash
+
+testname='char-crlf.t'
+command="$PPLEX"
+args=( '-s' 'input.ml' )
+exit_code='0'
+stdin_file='/dev/null'
+stdout_file='stdout'
+stderr_file='/dev/null'
+sources=( 'input.ml' )
+products=( )
+
+# Environment variables:
+env_vars=( )
+
+setup(){
+  : Perform here actions to be run before the tested program
+}
+
+munge(){
+  : Munge here the results of the tested program to ease the check
+}
+
+check(){
+  check_exit_code &&
+  check_stderr &&
+  check_stdout &&
+  check_products &&
+  : Perform here extra checks on the tested program
+}
+
+explain(){
+  explain_exit_code
+  explain_stdout
+  explain_stderr
+  explain_products
+  : Explain here more potential differences
+}
+
+teardown(){
+  : Undo here the actions of setup
+}

tests/char-crlf.t/input.ml

@@ -0,0 +1,2 @@
+'
+'

tests/char-crlf.t/stdout

@@ -0,0 +1,2 @@
+CHAR "\r\n"
+NEWLINE "\n"

tests/char-esc-overflow.t/TESTRECIPE

@@ -0,0 +1,42 @@
+#!/bin/bash
+
+testname='char-esc-overflow.t'
+command="$PPLEX"
+args=( '-f' '-s' 'input.ml' )
+exit_code='0'
+stdin_file='/dev/null'
+stdout_file='stdout'
+stderr_file='/dev/null'
+sources=( 'input.ml' )
+products=( )
+
+# Environment variables:
+env_vars=( )
+
+setup(){
+  : Perform here actions to be run before the tested program
+}
+
+munge(){
+  : Munge here the results of the tested program to ease the check
+}
+
+check(){
+  check_exit_code &&
+  check_stderr &&
+  check_stdout &&
+  check_products &&
+  : Perform here extra checks on the tested program
+}
+
+explain(){
+  explain_exit_code
+  explain_stdout
+  explain_stderr
+  explain_products
+  : Explain here more potential differences
+}
+
+teardown(){
+  : Undo here the actions of setup
+}

tests/char-esc-overflow.t/input.ml

@@ -0,0 +1 @@
+'\705'

tests/char-esc-overflow.t/stdout

@@ -0,0 +1,2 @@
+ERROR "'\\705'" "Illegal_escape" "\\705"
+NEWLINE "\n"

tests/check-rand-roundtrip

@@ -1,6 +1,17 @@
 #!/bin/bash -e
+prefix=''
+count='100'
+while [ $# -gt 0 ]; do
+  case "$1" in
+    -p|--prefix) shift; prefix="$1"; shift;;
+    -c|--count) shift; count="$1"; shift;;
+    -*) echo usage; exit 1;;
+    *) break;;
+  esac
+done
 input="$(mktemp --suffix .ml)"
-dd if=/dev/urandom of="$input" count=1 bs="$1" 2>/dev/null
+echo -n "$prefix" > "$input"
+dd if=/dev/urandom of="$input" oflag=append count=1 bs="$count" 2>/dev/null
 lex=${PPLEX:-$(dirname $0)/../pplex.byte}
 if "$lex" -f "$input" | cmp "$input" /dev/stdin; then
   rm "$input"

tests/string-esc-overflow.t/TESTRECIPE

@@ -0,0 +1,42 @@
+#!/bin/bash
+
+testname='string-esc-overflow.t'
+command="$PPLEX"
+args=( '-f' '-s' 'input.ml' )
+exit_code='0'
+stdin_file='/dev/null'
+stdout_file='stdout'
+stderr_file='/dev/null'
+sources=( 'input.ml' )
+products=( )
+
+# Environment variables:
+env_vars=( )
+
+setup(){
+  : Perform here actions to be run before the tested program
+}
+
+munge(){
+  : Munge here the results of the tested program to ease the check
+}
+
+check(){
+  check_exit_code &&
+  check_stderr &&
+  check_stdout &&
+  check_products &&
+  : Perform here extra checks on the tested program
+}
+
+explain(){
+  explain_exit_code
+  explain_stdout
+  explain_stderr
+  explain_products
+  : Explain here more potential differences
+}
+
+teardown(){
+  : Undo here the actions of setup
+}

tests/string-esc-overflow.t/input.ml

@@ -0,0 +1 @@
+"\705"

tests/string-esc-overflow.t/stdout

@@ -0,0 +1,2 @@
+ERROR "\"\\705\"" "Illegal_escape" "\\705"
+NEWLINE "\n"