From 734a1c6ce37753b79b24093a5532aaae57b0e030 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Sun, 21 Jul 2013 19:42:09 +0200
Subject: Some more tests

---
 examples/working-compiler/freeze2.test      | 3 +++
 examples/working-compiler/include.test      | 8 ++++++++
 examples/working-compiler/stackobjects.test | 7 +++++++
 3 files changed, 18 insertions(+)
 create mode 100644 examples/working-compiler/freeze2.test
 create mode 100644 examples/working-compiler/include.test
 create mode 100644 examples/working-compiler/stackobjects.test

(limited to 'examples')

diff --git a/examples/working-compiler/freeze2.test b/examples/working-compiler/freeze2.test
new file mode 100644
index 0000000..f4c32d3
--- /dev/null
+++ b/examples/working-compiler/freeze2.test
@@ -0,0 +1,3 @@
+[ "foo" "bar" "quux" ] {
+  _ { dump 0 sys .exit }_ -01 ".bin" cat sys .freeze
+} each
diff --git a/examples/working-compiler/include.test b/examples/working-compiler/include.test
new file mode 100644
index 0000000..3aa88f5
--- /dev/null
+++ b/examples/working-compiler/include.test
@@ -0,0 +1,8 @@
+"included" dump
+
+1 0 add
+{ -- 0 } /add deff
+
+{
+  "/home/drahflow/elymas/examples/working-compiler/include.test" include
+} rep
diff --git a/examples/working-compiler/stackobjects.test b/examples/working-compiler/stackobjects.test
new file mode 100644
index 0000000..ee1cffb
--- /dev/null
+++ b/examples/working-compiler/stackobjects.test
@@ -0,0 +1,7 @@
+{
+  [ 1 2 3 4 5 6 7 8 ]
+  { -0000000000000000000000000000 }
+  -0*0*0*0*0*0*0*0*0*0*0*0*0*0*
+  "some copies..." dump
+}
+-0*0*0*0*0*0*0*0*0*0*0*0*0*0*
-- 
cgit v1.2.3