Adding missing test files from last commit.

tests/snow/repo3/pythagoras/hyp.c

@@ -0,0 +1,5 @@
+#include <math.h>
+
+double hypotenuse(double a, double b) {
+  return sqrt(a*a + b*b);
+}

tests/snow/repo3/pythagoras/hypotenuse-test.sch

@@ -0,0 +1,14 @@
+(import (scheme base) (scheme process-context) (pythagoras hypotenuse))
+
+(define (test expect expr)
+  (cond
+   ((not (equal? expect expr))
+    (write-string "FAIL\n")
+    (exit #f))))
+
+(test 5.0 (hypotenuse 3.0 4.0))
+(test 13.0 (hypotenuse 5.0 12.0))
+(test 25.0 (hypotenuse 7.0 24.0))
+(test 17.0 (hypotenuse 8.0 15.0))
+(test 41.0 (hypotenuse 9.0 40.0))
+(test 61.0 (hypotenuse 11.0 60.0))

tests/snow/repo3/pythagoras/hypotenuse.sch

@@ -0,0 +1,6 @@
+;;> Utility to determine the length of the hypotenuse of a right
+;;> triangle given the other two sides.
+
+(define-library (pythagoras hypotenuse)
+  (export hypotenuse)
+  (include-shared "hypotenuse"))

tests/snow/repo3/pythagoras/hypotenuse.stub

@@ -0,0 +1,3 @@
+(c-include-verbatim "hyp.c")
+
+(define-c double hypotenuse (double double))