testml 0.0.1 → 0.0.2

data/test/ast/external.tml

@@ -0,0 +1,42 @@
+--- !!perl/hash:TestML::Function
+namespace:
+  TestML: !!perl/hash:TestML::Str
+    value: '0.1.0'
+
+statements:
+- !!perl/hash:TestML::Assignment
+  name: Plan
+  expr: !!perl/hash:TestML::Num
+    value: 4
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Point
+    name: foo
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Point
+      name: bar
+  points:
+  - foo
+  - bar
+
+data:
+- !!perl/hash:TestML::Block
+  label: Test 2
+  points:
+    foo: '02134'
+    bar: '02134'
+- !!perl/hash:TestML::Block
+  label: Test 1
+  points:
+    foo: '98122'
+    bar: '98122'
+- !!perl/hash:TestML::Block
+  label: Test 11
+  points:
+    foo: '90210'
+    bar: '90210'
+- !!perl/hash:TestML::Block
+  label: Test 111
+  points:
+    foo: '60067'
+    bar: '60067'

data/test/ast/function.tml

@@ -0,0 +1,276 @@
+--- !!perl/hash:TestML::Function
+namespace:
+  TestML: !!perl/hash:TestML::Str
+    value: '0.1.0'
+
+statements:
+- !!perl/hash:TestML::Assignment
+  name: Plan
+  expr: !!perl/hash:TestML::Num
+    value: 21
+- !!perl/hash:TestML::Assignment
+  name: Label
+  expr: !!perl/hash:TestML::Str
+    value: Fruity Tests
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Function
+    statements:
+    - !!perl/hash:TestML::Assignment
+      name: Label
+      expr: !!perl/hash:TestML::Str
+        value: Anonymous function never called
+    - !!perl/hash:TestML::Statement
+      expr: !!perl/hash:TestML::Call
+        name: 'True'
+      assert: !!perl/hash:TestML::Assertion
+        name: EQ
+        expr: !!perl/hash:TestML::Call
+          name: 'False'
+- !!perl/hash:TestML::Assignment
+  name: test1
+  expr: !!perl/hash:TestML::Function
+    signature:
+    - f
+    - c
+    - t
+    statements:
+    - !!perl/hash:TestML::Statement
+      expr: !!perl/hash:TestML::Expression
+        calls:
+        - !!perl/hash:TestML::Call
+          name: List
+          args:
+          - !!perl/hash:TestML::Call
+            name: f
+          - !!perl/hash:TestML::Str
+            value: ->
+          - !!perl/hash:TestML::Call
+            name: c
+        - !!perl/hash:TestML::Call
+          name: Join
+      assert: !!perl/hash:TestML::Assertion
+        name: EQ
+        expr: !!perl/hash:TestML::Call
+          name: t
+    - !!perl/hash:TestML::Statement
+      expr: !!perl/hash:TestML::Expression
+        calls:
+        - !!perl/hash:TestML::Call
+          name: t
+        - !!perl/hash:TestML::Call
+          name: Strip
+          args:
+          - !!perl/hash:TestML::Call
+            name: f
+        - !!perl/hash:TestML::Call
+          name: Strip
+          args:
+          - !!perl/hash:TestML::Str
+            value: ->
+      assert: !!perl/hash:TestML::Assertion
+        name: EQ
+        expr: !!perl/hash:TestML::Call
+          name: c
+    - !!perl/hash:TestML::Statement
+      expr: !!perl/hash:TestML::Expression
+        calls:
+        - !!perl/hash:TestML::Call
+          name: t
+        - !!perl/hash:TestML::Call
+          name: Strip
+          args:
+          - !!perl/hash:TestML::Str
+            value: ->
+      assert: !!perl/hash:TestML::Assertion
+        name: EQ
+        expr: !!perl/hash:TestML::Expression
+          calls:
+          - !!perl/hash:TestML::Call
+            args:
+            - !!perl/hash:TestML::Call
+              name: f
+            - !!perl/hash:TestML::Call
+              name: c
+            name: List
+          - !!perl/hash:TestML::Call
+            name: Join
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Call
+      name: test1
+    - !!perl/hash:TestML::Call
+      name: Type
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: Func
+- !!perl/hash:TestML::Assignment
+  name: Label
+  expr: !!perl/hash:TestML::Str
+    value: $BlockLabel
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Call
+    name: test1
+    args:
+    - !!perl/hash:TestML::Point
+      name: fruit
+    - !!perl/hash:TestML::Point
+      name: color
+    - !!perl/hash:TestML::Point
+      name: thing
+  points:
+  - fruit
+  - color
+  - thing
+- !!perl/hash:TestML::Assignment
+  name: test2
+  expr: !!perl/hash:TestML::Function
+    statements:
+    - !!perl/hash:TestML::Statement
+      expr: !!perl/hash:TestML::Call
+        name: thing
+      assert: !!perl/hash:TestML::Assertion
+          name: HAS
+          expr: !!perl/hash:TestML::Call
+            name: color
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Call
+    name: test2
+    args:
+    - !!perl/hash:TestML::Point
+      name: color
+    - !!perl/hash:TestML::Point
+      name: thing
+  points:
+  - color
+  - thing
+- !!perl/hash:TestML::Assignment
+  name: test3
+  expr: !!perl/hash:TestML::Function
+    signature:
+    - a
+    - b
+    - c
+    statements:
+    - !!perl/hash:TestML::Statement
+      expr: !!perl/hash:TestML::Call
+          name: f1
+          args:
+          - !!perl/hash:TestML::Call
+            name: a
+      assert: !!perl/hash:TestML::Assertion
+        name: EQ
+        expr: !!perl/hash:TestML::Call
+          name: b
+    - !!perl/hash:TestML::Statement
+      expr: !!perl/hash:TestML::Call
+        name: f2
+        args:
+        - !!perl/hash:TestML::Call
+          name: a
+      assert: !!perl/hash:TestML::Assertion
+        name: EQ
+        expr: !!perl/hash:TestML::Call
+          name: c
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Call
+    name: test3
+    args:
+    - !!perl/hash:TestML::Point
+      name: input
+    - !!perl/hash:TestML::Point
+      name: output1
+    - !!perl/hash:TestML::Point
+      name: output2
+  points:
+  - input
+  - output1
+  - output2
+- !!perl/hash:TestML::Assignment
+  name: Label
+  expr: !!perl/hash:TestML::Str
+    value: Passing functions as objects
+- !!perl/hash:TestML::Assignment
+  name: test4
+  expr: !!perl/hash:TestML::Function
+    signature:
+    - func
+    - num
+    statements:
+    - !!perl/hash:TestML::Statement
+      expr: !!perl/hash:TestML::Expression
+        calls:
+        - !!perl/hash:TestML::Call
+          name: func
+        - !!perl/hash:TestML::Call
+          name: Type
+      assert: !!perl/hash:TestML::Assertion
+        name: EQ
+        expr: !!perl/hash:TestML::Str
+          value: Func
+    - !!perl/hash:TestML::Statement
+      expr: !!perl/hash:TestML::Call
+        name: func
+        args:
+        - !!perl/hash:TestML::Call
+          name: num
+- !!perl/hash:TestML::Assignment
+  name: test5
+  expr: !!perl/hash:TestML::Function
+    signature:
+    - num
+    statements:
+    - !!perl/hash:TestML::Statement
+      expr: !!perl/hash:TestML::Call
+        name: num
+      assert: !!perl/hash:TestML::Assertion
+        name: EQ
+        expr: !!perl/hash:TestML::Num
+          value: 42
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Call
+      name: test4
+      args:
+      - !!perl/hash:TestML::Call
+          name: test5
+      - !!perl/hash:TestML::Num
+        value: 42
+
+data:
+- !!perl/hash:TestML::Block
+  label: Red Apple
+  points:
+    fruit: apple
+    color: red
+    thing: apple->red
+- !!perl/hash:TestML::Block
+  label: Orange Orange
+  points:
+    fruit: orange
+    color: orange
+    thing: orange->orange
+- !!perl/hash:TestML::Block
+  label: Green Grape
+  points:
+    fruit: grape
+    color: green
+    thing: grape->green
+- !!perl/hash:TestML::Block
+  label: One
+  points:
+    input: '1'
+    output1: '43'
+    output2: '2'
+- !!perl/hash:TestML::Block
+  label: Two
+  points:
+    input: '2'
+    output1: '86'
+    output2: '6'
+- !!perl/hash:TestML::Block
+  label: Three
+  points:
+    input: '5'
+    output1: '215'
+    output2: '30'

data/test/ast/label.tml

@@ -0,0 +1,58 @@
+--- !!perl/hash:TestML::Function
+namespace:
+  TestML: !!perl/hash:TestML::Str
+    value: '0.1.0'
+
+statements:
+- !!perl/hash:TestML::Assignment
+  name: Plan
+  expr: !!perl/hash:TestML::Num
+    value: 4
+- !!perl/hash:TestML::Assignment
+  name: Label
+  expr: !!perl/hash:TestML::Str
+    value: My label
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Call
+    name: Get
+    args:
+    - !!perl/hash:TestML::Str
+      value: Label
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: My label
+- !!perl/hash:TestML::Assignment
+  name: Label
+  expr: !!perl/hash:TestML::Str
+    value: '$BlockLabel: $num) The $fruit'
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Call
+    name: GetLabel
+    args: []
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Point
+      name: text
+  points:
+  - text
+
+data:
+- !!perl/hash:TestML::Block
+  label: A Fruity Test
+  points:
+    num: '14'
+    fruit: apple
+    text: 'A Fruity Test: 14) The apple'
+- !!perl/hash:TestML::Block
+  label: X
+  points:
+    num: '21'
+    fruit: pear
+    text: 'X: 21) The pear'
+- !!perl/hash:TestML::Block
+  label: Last Test
+  points:
+    num: '99'
+    fruit: tomato
+    text: 'Last Test: 99) The tomato'

data/test/ast/markers.tml

@@ -0,0 +1,36 @@
+--- !!perl/hash:TestML::Function
+namespace:
+  TestML: !!perl/hash:TestML::Str
+    value: '0.1.0'
+
+statements:
+- !!perl/hash:TestML::Assignment
+  name: Plan
+  expr: !!perl/hash:TestML::Num
+    value: 2
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Point
+      name: bar
+  expr: !!perl/hash:TestML::Point
+    name: foo
+  points:
+  - foo
+  - bar
+
+data:
+- !!perl/hash:TestML::Block
+  label: Test One
+  points:
+    foo: Hello
+    bar: Hello
+- !!perl/hash:TestML::Block
+  label: Test Two
+  points:
+    foo: 'O HAI
+
+'
+    bar: 'O HAI
+
+'

data/test/ast/semicolons.tml

@@ -0,0 +1,30 @@
+--- !!perl/hash:TestML::Function
+namespace:
+  TestML: !!perl/hash:TestML::Str
+    value: 0.1.0
+statements:
+- !!perl/hash:TestML::Assignment
+  name: Plan
+  expr: !!perl/hash:TestML::Num
+    value: 3
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Str
+      value: one
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: one
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Str
+    value: two
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: two
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Str
+    value: three
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: three

data/test/ast/truth.tml

@@ -0,0 +1,85 @@
+--- !!perl/hash:TestML::Function
+namespace:
+  TestML: !!perl/hash:TestML::Str
+    value: '0.1.0'
+
+statements:
+- !!perl/hash:TestML::Assignment
+  name: Plan
+  expr: !!perl/hash:TestML::Num
+    value: 9
+- !!perl/hash:TestML::Assignment
+  name: Label
+  expr: !!perl/hash:TestML::Str
+    value: Boolean OK
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    name: OK
+  expr: !!perl/hash:TestML::Call
+    name: 'True'
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    name: OK
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Call
+      name: 'False'
+    - !!perl/hash:TestML::Call
+      name: Not
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    name: OK
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Call
+      name: 'True'
+    - !!perl/hash:TestML::Call
+      name: Not
+    - !!perl/hash:TestML::Call
+      name: Not
+- !!perl/hash:TestML::Assignment
+  name: Label
+  expr: !!perl/hash:TestML::Str
+    value: String OK
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    name: OK
+  expr: !!perl/hash:TestML::Str
+    value: Text
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    name: OK
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Str
+      value: ''
+    - !!perl/hash:TestML::Call
+      name: Not
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    name: OK
+  expr: !!perl/hash:TestML::Str
+    value: '0'
+- !!perl/hash:TestML::Assignment
+  name: Label
+  expr: !!perl/hash:TestML::Str
+    value: Number OK
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    name: OK
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Num
+      value: 0
+    - !!perl/hash:TestML::Call
+      name: Not
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    name: OK
+  expr: !!perl/hash:TestML::Num
+    value: 1
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    name: OK
+  expr: !!perl/hash:TestML::Num
+    value: 42