From 914de50133c8128cc9fe4b8a925f74a2c0a35645 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 5 May 2008 21:20:02 +0000 Subject: [PATCH] More tests. svn: r9664 --- collects/tests/typed-scheme/run | 2 ++ collects/tests/typed-scheme/succeed/match.ss | 7 +++++++ collects/tests/typed-scheme/succeed/string-const.ss | 5 +++++ 3 files changed, 14 insertions(+) create mode 100755 collects/tests/typed-scheme/run create mode 100644 collects/tests/typed-scheme/succeed/match.ss create mode 100644 collects/tests/typed-scheme/succeed/string-const.ss diff --git a/collects/tests/typed-scheme/run b/collects/tests/typed-scheme/run new file mode 100755 index 0000000000..32e09720a4 --- /dev/null +++ b/collects/tests/typed-scheme/run @@ -0,0 +1,2 @@ +#!/bin/bash +mred -e '(begin (require "main.ss") (go))' diff --git a/collects/tests/typed-scheme/succeed/match.ss b/collects/tests/typed-scheme/succeed/match.ss new file mode 100644 index 0000000000..741027590b --- /dev/null +++ b/collects/tests/typed-scheme/succeed/match.ss @@ -0,0 +1,7 @@ +#lang typed-scheme + +(require scheme/match) + +(match 1 + [2 3] + [x 4]) \ No newline at end of file diff --git a/collects/tests/typed-scheme/succeed/string-const.ss b/collects/tests/typed-scheme/succeed/string-const.ss new file mode 100644 index 0000000000..39354bc72a --- /dev/null +++ b/collects/tests/typed-scheme/succeed/string-const.ss @@ -0,0 +1,5 @@ +#lang typed-scheme + +(require string-constants/string-constant) + +(string-constant cancel) \ No newline at end of file