More tests.

svn: r9664

collects/tests/typed-scheme/run

@@ -0,0 +1,2 @@
+#!/bin/bash
+mred  -e '(begin (require "main.ss") (go))'

collects/tests/typed-scheme/succeed/match.ss

@@ -0,0 +1,7 @@
+#lang typed-scheme
+
+(require scheme/match)
+
+(match 1
+  [2 3]
+  [x 4])

collects/tests/typed-scheme/succeed/string-const.ss

@@ -0,0 +1,5 @@
+#lang typed-scheme
+
+(require string-constants/string-constant)
+
+(string-constant cancel)