Fix test

WyattBlue · Sep 11, 2023 · f38f49e · f38f49e
1 parent 63c0394
commit f38f49e
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 4 deletions.
diff --git a/resources/scripts/case.pal b/resources/scripts/case.pal
@@ -1,5 +1,7 @@
 #!/usr/bin/env auto-editor palet
 
+#lang palet
+
 (assert (equal? (case (+ 7 5) [(1 2 3) 'small] [(10 11 12) 'big]) 'big))
 (assert (equal? (case (- 7 5) [(1 2 3) 'small] [(10 11 12) 'big]) 'small))
 (assert (case (mod 3 2) [(0) #f] [else #t]))
@@ -18,7 +20,7 @@
     )
 )
 
-(assert (equal? read-tb-ntsc 3 #f) 3/1)
-(assert (equal? read-tb-ntsc 3 #t) 2997/1000)
-(assert (equal? read-tb-ntsc 30 #f) 30/1)
-(assert (equal? read-tb-ntsc 30 #t) 30000/1)
+(assert (equal? (read-tb-ntsc 3 #f) 3/1))
+(assert (equal? (read-tb-ntsc 3 #t) 2997/1000))
+(assert (equal? (read-tb-ntsc 30 #f) 30/1))
+(assert (equal? (read-tb-ntsc 30 #t) 30000/1001))
diff --git a/resources/scripts/maxcut.pal b/resources/scripts/maxcut.pal
@@ -1,5 +1,7 @@
 #!/usr/bin/env auto-editor palet
 
+#lang palet
+
 (define (remove-large! arr lim replace with)
    (define start-p 0)
    (define active #f)

diff --git a/resources/scripts/scope.pal b/resources/scripts/scope.pal
@@ -1,5 +1,6 @@
 #!/usr/bin/env auto-editor palet
 
+#lang palet
 ; Enforce lexical scoping
 
 (define (f x) (lambda (y) (+ x y)))