]> git.draconx.ca Git - cdecl99.git/blobdiff - tests/stress.at
Port random crossparse test to Autotest.
[cdecl99.git] / tests / stress.at
index 9b45cea46f7da3981a30b64eee80f28b64e5c4d4..77c0d20a1250646aab6c121c100b5930c9126f3c 100644 (file)
@@ -79,3 +79,13 @@ m4_define([sanity_check], [AT_CHECK([$AS_TR_SH([$2]) false])])
 m4_map([sanity_check], [sanity_tests])
 
 AT_CLEANUP
+
+AT_SETUP([random cross-parse])
+
+TEST_NEED_PROGRAM([randomdecl])
+TEST_NEED_PROGRAM([crossparse])
+
+printf 'Using seed %d\n' "$random_seed" >&AS_MESSAGE_LOG_FD
+AT_CHECK([randomdecl -n "$random_iter" -s "$random_seed"],, [stdout-nolog])
+AT_CHECK([crossparse -f stdout])
+AT_CLEANUP