--- !!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'