simon/beowulf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Working assignment, reader macros, mexpr interpretation.

Browse source
This commit is contained in:
Simon Brooke 2023-03-26 16:04:22 +01:00
parent b5e418118b
commit 6a8417a367
No known key found for this signature in database
GPG key ID: A7A4F18D1D4DF987
23 changed files with 227 additions and 135 deletions
Download patch file Download diff file Expand all files Collapse all files

11
test/beowulf/reader_macro_test.clj Normal file
View file

@ -0,0 +1,11 @@
(ns beowulf.reader-macro-test
(:require [clojure.test :refer [deftest is testing]]
[beowulf.read :refer [gsp]]
[beowulf.reader.macros :refer [expand-macros]]))
(deftest macro-expansion
(testing "Expanding DEFUN"
(let [expected "(SET (QUOTE FACT) (LAMBDA (X) (COND ((ZEROP X) 1) (T (TIMES X (FACT (SUB1 X)))))))"
source "(DEFUN FACT (X) (COND ((ZEROP X) 1) (T (TIMES X (FACT (SUB1 X))))))"
actual (print-str (gsp source))]
(is (= actual expected)))))

2
test/beowulf/sexpr_test.clj
View file

@ -114,6 +114,6 @@
(deftest list-tests
(testing "Reading arbitrarily structured lists"
(let [expected "(DEFUN FACT (X) (COND ((ZEROP X) 1) (T (TIMES X (FACT (SUB1 X))))))"
(let [expected "(SET (QUOTE FACT) (LAMBDA (X) (COND ((ZEROP X) 1) (T (TIMES X (FACT (SUB1 X)))))))"
actual (print-str (gsp expected))]
(is (= actual expected)))))