testml 0.0.1 → 0.0.2

data/test/ast/types.tml

@@ -0,0 +1,163 @@
+--- !!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: 11
+- !!perl/hash:TestML::Assignment
+  name: Label
+  expr: !!perl/hash:TestML::Str
+    value: Test $TestNumber
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Str
+      value: Foo
+    - !!perl/hash:TestML::Call
+      name: Type
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: Str
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Num
+      value: 42
+    - !!perl/hash:TestML::Call
+      name: Type
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: Num
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Call
+      name: 'True'
+    - !!perl/hash:TestML::Call
+      name: Type
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: Bool
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Call
+      args:
+      - !!perl/hash:TestML::Num
+        value: 1
+      - !!perl/hash:TestML::Num
+        value: 2
+      - !!perl/hash:TestML::Num
+        value: 3
+      name: List
+    - !!perl/hash:TestML::Call
+      name: Type
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: List
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Function
+      statements: []
+    - !!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::Expression
+    calls:
+    - !!perl/hash:TestML::Function
+      statements: []
+    - !!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: s
+  expr: !!perl/hash:TestML::Str
+    value: Foo
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Call
+      name: s
+    - !!perl/hash:TestML::Call
+      name: Type
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: Str
+- !!perl/hash:TestML::Assignment
+  name: n
+  expr: !!perl/hash:TestML::Num
+    value: 42
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Call
+      name: n
+    - !!perl/hash:TestML::Call
+      name: Type
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: Num
+- !!perl/hash:TestML::Assignment
+  name: b
+  expr: !!perl/hash:TestML::Call
+    name: 'False'
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Call
+      name: b
+    - !!perl/hash:TestML::Call
+      name: Type
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: Bool
+- !!perl/hash:TestML::Assignment
+  name: l
+  expr: !!perl/hash:TestML::Call
+    name: List
+    args: []
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Call
+      name: l
+    - !!perl/hash:TestML::Call
+      name: Type
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: List
+- !!perl/hash:TestML::Assignment
+  name: f
+  expr: !!perl/hash:TestML::Function
+    statements: []
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Call
+      name: f
+    - !!perl/hash:TestML::Call
+      name: Type
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: Func

data/test/compile-lite.rb

@@ -0,0 +1,38 @@
+require 'test/unit'
+
+require 'testml/runtime'
+require 'testml/compiler/pegex'
+require 'testml/compiler/lite'
+require 'yaml'
+
+class TestCompileLite < Test::Unit::TestCase
+  def test_compile_lite
+    testml = <<'...'
+# A comment
+%TestML 0.1.0
+
+Plan = 2;
+Title = "O HAI TEST";
+
+*input.uppercase == *output;
+
+=== Test mixed case string
+--- input: I Like Pie
+--- output: I LIKE PIE
+
+=== Test lower case string
+--- input: i love lucy
+--- output: I LOVE LUCY
+...
+
+    func = TestML::Compiler::Pegex.new.compile(testml)
+    func_lite = TestML::Compiler::Lite.new.compile(testml)
+
+#     File.open('/tmp/got', 'w') {|f| f.write func.to_yaml}
+#     File.open('/tmp/want', 'w') {|f| f.write func_lite.to_yaml}
+#     STDERR.write(`diff -u /tmp/want /tmp/got`)
+
+    assert_equal YAML.dump(func_lite), YAML.dump(func),
+      'Lite compile matches normal compile'
+  end
+end

data/test/compile-testml-document.rb

@@ -0,0 +1,59 @@
+require 'test/unit'
+
+require 'testml/runtime'
+require 'testml/compiler/pegex'
+
+class TestCompileTestMLDocument < Test::Unit::TestCase
+  def test_compile_testml_document
+    testml = <<'...'
+# A comment
+%TestML 0.1.0
+
+Plan = 2
+Title = "O HAI TEST"
+
+*input.uppercase() == *output
+
+=== Test mixed case string
+--- input: I Like Pie
+--- output: I LIKE PIE
+
+=== Test lower case string
+--- input: i love lucy
+--- output: I LOVE LUCY
+...
+
+    func = TestML::Compiler::Pegex.new.compile(testml)
+    assert func, 'TestML string matches against TestML grammar'
+    assert_equal func.namespace['TestML'].value, '0.1.0', 'Version parses'
+    assert_equal func.statements[0].expr.value, 2, 'Plan parses'
+    assert_equal func.statements[1].expr.value, 'O HAI TEST', 'Title parses'
+    assert_equal func.statements[1].expr.value, 'O HAI TEST', 'Title parses'
+
+    assert_equal func.statements.size, 3, 'Three test statements'
+    statement = func.statements[2]
+    assert_equal statement.points.join('-'), 'input-output',
+        'Point list is correct'
+
+    assert_equal statement.expr.calls.size, 2, 'Expression has two calls'
+    expr = statement.expr
+    assert expr.calls[0].kind_of?(TestML::Point), 'First sub is a Point'
+    assert_equal expr.calls[0].name, 'input', 'Point name is "input"'
+    assert_equal expr.calls[1].name, 'uppercase', 'Second sub is "uppercase"'
+
+    assert_equal statement.assert.name, 'EQ', 'Assertion is "EQ"'
+
+    expr = statement.assert.expr
+    assert expr.kind_of?(TestML::Point), 'First sub is a Point'
+    assert_equal expr.name, 'output', 'Point name is "output"'
+
+    assert_equal func.data.size, 2, 'Two data blocks'
+    (block1, block2) = func.data
+    assert_equal block1.label, 'Test mixed case string', 'Block 1 label ok'
+    assert_equal block1.points['input'], 'I Like Pie', 'Block 1, input point'
+    assert_equal block1.points['output'], 'I LIKE PIE', 'Block 1, output point'
+    assert_equal block2.label, 'Test lower case string', 'Block 2 label ok'
+    assert_equal block2.points['input'], 'i love lucy', 'Block 2, input point'
+    assert_equal block2.points['output'], 'I LOVE LUCY', 'Block 2, output point'
+  end
+end

data/test/compile.rb

@@ -0,0 +1,57 @@
+require 'test/unit'
+
+require 'testml/runtime'
+require 'testml/compiler/lite'
+require 'testml/compiler/pegex'
+require 'yaml'
+
+class TestCompile < Test::Unit::TestCase
+  def test_compile
+    compile('testml/arguments.tml', TestML::Compiler::Pegex)
+    compile('testml/basic.tml', TestML::Compiler::Pegex)
+    compile('testml/dataless.tml', TestML::Compiler::Pegex)
+    compile('testml/exceptions.tml', TestML::Compiler::Pegex)
+    compile('testml/external.tml', TestML::Compiler::Pegex)
+    compile('testml/function.tml', TestML::Compiler::Pegex)
+    compile('testml/label.tml', TestML::Compiler::Pegex)
+    compile('testml/markers.tml', TestML::Compiler::Pegex)
+    compile('testml/semicolons.tml', TestML::Compiler::Pegex)
+    compile('testml/truth.tml', TestML::Compiler::Pegex)
+    compile('testml/types.tml', TestML::Compiler::Pegex)
+
+    compile('testml/arguments.tml', TestML::Compiler::Lite)
+    compile('testml/basic.tml', TestML::Compiler::Lite)
+    compile('testml/exceptions.tml', TestML::Compiler::Lite)
+    compile('testml/semicolons.tml', TestML::Compiler::Lite)
+  end
+
+  def compile(file, compiler=TestML::Compiler)
+    filename = file.sub(/(.*)\//, '')
+    runtime = TestML::Runtime.new({base: "test/#{$1}"})
+    testml = runtime.read_testml_file(filename)
+    ast1 = compiler.new.compile(testml)
+    got = YAML.dump(ast1)
+
+    yaml = File.read("test/ast/#{filename}") \
+      .gsub(/!!perl\/hash:/, '!ruby/object:') \
+      .gsub(/(explicit_call: )(\d)/) do |m|
+        "#{$1}#{($2 == '1') ? 'true' : 'false'}"
+      end
+#       .gsub(/^(\s*):(\w+:)/, "$1$2")
+
+    ast2 = YAML.load(yaml)
+    want = YAML.dump(ast2)
+
+    label = "#{file} - #{compiler.to_s}"
+    if got == want
+      assert_equal want, got, label
+    else
+      puts "Failed test: #{label}"
+      if want.match /\n/
+        File.open('/tmp/got', 'w') {|f| f.write got}
+        File.open('/tmp/want', 'w') {|f| f.write want}
+        puts `diff -u /tmp/want /tmp/got`
+      end
+    end
+  end
+end

data/test/inline-bridge.rb

@@ -0,0 +1,30 @@
+require 'testml'
+require 'testml/bridge'
+require 'testml/util'
+include TestML::Util
+
+class Bridge < TestML::Bridge
+  def upper(string)
+    str string.value.upcase
+  end
+end
+
+TestML.new(
+    bridge: Bridge,
+).testml = <<'...'
+%TestML 0.1.0
+
+*foo.upper() == *bar
+
+=== Foo for thought
+--- foo: o hai
+--- bar: O HAI
+
+=== Bar the door
+--- foo
+o
+Hai
+--- bar
+O
+HAI
+...

data/test/inline.rb

@@ -0,0 +1,28 @@
+$:.unshift "#{Dir.getwd}/test"
+
+require 'testml'
+require 'testml_bridge'
+
+TestML.new(
+    bridge: TestMLBridge,
+).testml = <<'...'
+%TestML 0.1.0
+
+Title = "Ingy's Test";
+Plan = 4;
+
+*foo == *bar;
+*bar == *foo;
+
+=== Foo for thought
+--- foo: O HAI
+--- bar: O HAI
+
+=== Bar the door
+--- bar
+O
+HAI
+--- foo
+O
+HAI
+...

data/test/strings.rb

@@ -0,0 +1,24 @@
+require 'testml'
+
+TestML.new.testml = <<'...'
+%TestML 0.1.0
+
+Plan = 6
+
+Throw(*error).bogus().Catch() == *error
+*error.Throw().bogus().Catch() == *error
+Throw('My error message').Catch() == *error
+
+*empty == "".Str
+*empty == ""
+
+Label = 'Simple string comparison'
+"foo" == "foo"
+
+=== Throw/Catch
+--- error: My error message
+
+=== Empty Point
+--- empty
+
+...

data/test/testml.rb

@@ -0,0 +1,38 @@
+require 'test/unit'
+require 'testml'
+require 'testml/compiler/pegex'
+require 'testml/compiler/lite'
+$:.unshift "#{Dir.getwd}/test"
+require 'testml_bridge'
+
+class TestMLTestCase < Test::Unit::TestCase
+  def run_testml_file(file, compiler=TestML::Compiler::Pegex)
+    TestML.new(
+      testml: file,
+      bridge: TestMLBridge,
+      compiler: compiler,
+    ).run(self)
+  end
+
+  (Dir.glob('test/testml/*.tml')
+    .select { |f| f !~ /external[12]/ }
+    .collect {|f| f.sub(/^test\//, '')}
+  ).each do |file|
+    method_name = 'test_' + file.gsub(/\W/, '_').sub(/_tml$/, '')
+    define_method(method_name.to_sym) do
+      run_testml_file(file)
+    end
+  end
+
+  %w(
+    testml/arguments.tml
+    testml/basic.tml
+    testml/exceptions.tml
+    testml/semicolons.tml
+  ).each do |file|
+    method_name = 'test_lite_' + file.gsub(/\W/, '_').sub(/_tml$/, '')
+    define_method(method_name.to_sym) do
+      run_testml_file(file, TestML::Compiler::Lite)
+    end
+  end
+end