1 files changed, 73 insertions, 0 deletions
diff --git a/test/ooptest.fr b/test/ooptest.fr
new file mode 100644
index 000000000000..54abb8a22ce2
--- /dev/null
+++ b/test/ooptest.fr
@@ -0,0 +1,73 @@
+\ OOP test stuff
+
+only
+also oop definitions
+
+object subclass c-aggregate
+c-byte obj: m0
+c-byte obj: m1
+c-4byte obj: m2
+c-2byte obj: m3
+end-class
+
+object --> sub class1
+
+cell: .a
+cell: .b
+: init 
+	locals| class inst |
+	0 inst class --> .a !
+	1 inst class --> .b !
+;
+end-class
+
+class1 --> new c1inst
+
+class1 --> sub class2
+cell: .c
+cell: .d
+
+: init 
+	locals| class inst |
+	inst class --> super --> init
+	2 inst class --> .c !
+	3 inst class --> .d !
+;
+end-class
+
+class2 --> new c2inst
+
+object subclass c-list
+c-list ref: link
+c-ref  obj: payload
+end-class
+
+\ test stuff from ficl.html
+.( metaclass methods ) cr
+metaclass --> methods
+
+cr .( c-foo class ) cr
+object --> sub c-foo
+cell: m_cell1  
+    4 chars: m_chars  
+    : init   ( inst class -- )  
+        locals| class inst |  
+        0 inst class --> m_cell1 !  
+        inst class --> m_chars 4 0 fill  
+        ." initializing an instance of c_foo at " inst x. cr  
+    ;  
+end-class 
+
+.( c-foo instance methods... ) cr
+c-foo --> new foo-instance
+cr
+foo-instance --> methods
+foo-instance --> pedigree
+cr
+foo-instance 2dup 
+    --> methods  
+    --> pedigree
+cr
+c-foo --> see init
+cr
+foo-instance --> class --> see init