testml 0.0.1 → 0.0.2

data/test/testml.yaml

@@ -0,0 +1,10 @@
+source_testml_dir: ../../testml-tml
+local_testml_dir: ./testml
+exclude_testml_files:
+- comments.tml
+- data.tml
+- external1.tml
+- external2.tml
+- syntax.tml
+- syntax2.tml
+- topic.tml

data/test/testml/arguments.tml

@@ -0,0 +1,18 @@
+%TestML 0.1.0
+
+Plan = 3
+
+*what.combine(*who) == *greeting
+*what.combine('and', *else) == *greeting
+*what.combine('and', *else.uppercase) == *upper_greeting
+
+=== Dear John
+--- what: Dear
+--- who: John
+--- greeting: Dear John
+
+=== Greetings and Salutations
+--- what: Greetings
+--- else: Salutations
+--- greeting: Greetings and Salutations
+--- upper_greeting: Greetings and SALUTATIONS

data/test/testml/assertions.tml

@@ -0,0 +1,15 @@
+%TestML 0.1.0
+
+Plan = 6
+
+Label = 'EQ tests'
+'The cat in the hat'.EQ('The cat in the hat')
+'The cat in the hat' == 'The cat in the hat'
+
+Label = 'HAS tests'
+'The cat in the hat'.HAS('cat')
+'The cat in the hat' ~~ 'hat'
+
+Label = 'OK tests'
+'The cat in the hat'.OK
+'The cat in the hat'.OK()

data/test/testml/basic.tml

@@ -0,0 +1,37 @@
+# The TestML version directive is required. Switching to semantic versioning
+# scheme, for now.
+
+%TestML 0.1.0
+
+# The title of the test. Goes into a special global variable. Variables
+# strating with uppercase letter usually belong to TestML. Title may or may
+# not be used by a framework, but still nicely self-documenting.
+Title = 'A Basic TestML File'
+
+# The Plan global variable indicates the expected number of tests.
+Plan = 4
+
+# The bridge class will need to support 'uppercase' and 'lowercase' methods.
+*text.uppercase == *upper
+*text.lowercase == *lower
+*lower.uppercase == *upper.lowercase.uppercase
+
+
+# Define 2 data blocks. 'Test One' is the block label.
+=== Test One
+# This block has 3 inline data points. The data has no newline at the end
+--- text: I like Pie.
+--- upper: I LIKE PIE.
+--- lower: i like pie.
+
+=== Test Two
+# This block has no 'upper' point, so will not be used in some tests. These
+# data points do have trailing newlines.
+--- text
+Say it,
+Don't spray it.
+
+# The blank line above doesn't count as text.
+--- lower
+say it,
+don't spray it.

data/test/testml/dataless.tml

@@ -0,0 +1,9 @@
+%TestML 0.1.0
+
+Title = 'TestML with no data section'
+Plan = 2
+Label = 'Test $TestNumber'
+
+'foo' == "foo"
+
+'bar'.Str == "bar"

data/test/testml/exceptions.tml

@@ -0,0 +1,16 @@
+%TestML 0.1.0
+
+Plan = 2
+
+Throw(*error).NonExistingMethod.Catch ~~ *match
+
+message = "blowed up"
+
+Throw(message).Catch == message
+
+=== Error message from data
+--- error
+O NOES!
+
+Something went wrong
+--- match: Something

data/test/testml/external.tml

@@ -0,0 +1,8 @@
+%TestML 0.1.0
+
+Plan = 4
+
+*foo == *bar
+
+%Include external2.tml
+%Include external1.tml

data/test/testml/external1.tml

@@ -0,0 +1,10 @@
+=== Test 1
+--- foo: 98122
+--- bar: 98122
+=== Test 11
+--- foo: 90210
+--- bar: 90210
+=== Test 111
+--- foo: 60067
+--- bar: 60067
+

data/test/testml/external2.tml

@@ -0,0 +1,3 @@
+=== Test 2
+--- foo: 02134
+--- bar: 02134

data/test/testml/function.tml

@@ -0,0 +1,82 @@
+%TestML 0.1.0
+# %DumpAst 1
+
+Plan = 21
+
+Label = 'Fruity Tests'
+
+{
+    Label = 'Anonymous function never called'
+    True == False
+}
+
+test1 = (f, c, t) {
+    List(f, '->', c).Join == t
+    t.Strip(f).Strip('->') == c
+    t.Strip('->') == List(f, c).Join
+}
+
+test1.Type == 'Func'
+
+Label = '$BlockLabel'
+
+test1(*fruit, *color, *thing)
+
+# XXX aocole suggests yanking the auto-sig feature.
+test2 = {
+    thing ~~ color
+}
+
+test2(*color, *thing)
+
+test3 = (a, b, c) {
+    f1(a) == b
+    f2(a) == c
+}
+
+test3(*input, *output1, *output2)
+
+Label = 'Passing functions as objects'
+
+test4 = (func, num) {
+    func.Type == 'Func'
+    func(num)
+}
+
+test5 = (num) {
+    num == 42
+}
+
+test4(test5, 42)
+
+=== Red Apple
+--- fruit: apple
+--- color: red
+--- thing: apple->red
+
+=== Orange Orange
+--- fruit: orange
+--- color: orange
+--- thing: orange->orange
+
+=== Green Grape
+--- fruit: grape
+--- color: green
+--- thing: grape->green
+
+
+=== One
+--- input: 1
+--- output1: 43
+--- output2: 2
+
+=== Two
+--- input: 2
+--- output1: 86
+--- output2: 6
+
+=== Three
+--- input: 5
+--- output1: 215
+--- output2: 30
+

data/test/testml/label.tml

@@ -0,0 +1,24 @@
+%TestML 0.1.0
+
+Plan = 4
+
+Label = 'My label'
+Get('Label') == 'My label'
+
+Label = '$BlockLabel: $num) The $fruit'
+GetLabel() == *text
+
+=== A Fruity Test
+--- num: 14
+--- fruit: apple
+--- text: A Fruity Test: 14) The apple
+
+=== X
+--- num: 21
+--- fruit: pear
+--- text: X: 21) The pear
+
+=== Last Test
+--- num: 99
+--- fruit: tomato
+--- text: Last Test: 99) The tomato

data/test/testml/markers.tml

@@ -0,0 +1,19 @@
+%TestML 0.1.0
+%BlockMarker +++
+%PointMarker ???
+
+Plan = 2
+
+*foo == *bar
+
+
++++ Test One
+??? foo: Hello
+??? bar: Hello
+
+
++++ Test Two
+??? foo
+O HAI
+??? bar
+O HAI

data/test/testml/semicolons.tml

@@ -0,0 +1,10 @@
+# Trailing semicolons are allowed, but we only allow one statement per line in
+# TestML.
+
+%TestML 0.1.0
+
+Plan = 3;
+
+'one' == 'one'
+'two' == 'two';
+'three' == 'three'

data/test/testml/standard.tml

@@ -0,0 +1,50 @@
+%TestML 0.1.0
+
+Title = 'Test the TestML Standard Library'
+Plan = 12
+
+True.OK
+False.Not.OK
+None.Not.OK
+*lines.Lines.Count == 12
+*foo.Lines.Join(' - ')  == *bar
+*foo.Lines.Reverse.Text == *baz
+*foo.Lines.Sort.Text    == *baz.Lines.Sort.Text
+*foo.Lines.Text         == *foo
+
+=== List
+--- lines
+sail
+
+away
+
+### Standard Calls
+List
+NOT
+
+Lines/Text
+Split(delim)/Join(delim)
+Sort/NumSort/Reverse
+Item(num)/Count
+
+=== Test One
+--- foo
+a
+b
+c
+--- bar: a - b - c
+--- baz
+c
+b
+a
+
+=== Test Two
+--- foo
+I
+like
+pie!
+--- bar: I - like - pie!
+--- baz
+pie!
+like
+I

data/test/testml/truth.tml

@@ -0,0 +1,22 @@
+%TestML 0.1.0
+
+Plan = 9
+
+Label = 'Boolean OK'
+True.OK
+False.Not.OK
+True.Not.Not.OK
+
+Label = 'String OK'
+'Text'.OK
+''.Not.OK
+'0'.OK
+
+Label = 'Number OK'
+0.Not.OK
+1.OK
+42.OK
+
+# XXX List context not yet supported.
+# List("x\ny").OK
+# List.Not.OK

data/test/testml/types.tml

@@ -0,0 +1,24 @@
+%TestML 0.1.0
+
+Plan = 11
+
+Label = 'Test $TestNumber'
+
+'Foo'.Type == 'Str'
+42.Type == 'Num'
+True.Type == 'Bool'
+List(1,2,3).Type == 'List'
+# [].Type == 'List'
+{}.Type == 'Func'
+(){}.Type == 'Func'
+
+s = 'Foo'
+s.Type == 'Str'
+n = 42
+n.Type == 'Num'
+b = False
+b.Type == 'Bool'
+l = List()
+l.Type == 'List'
+f = {}
+f.Type == 'Func'

data/test/testml_bridge.rb

@@ -0,0 +1,28 @@
+require './lib/testml'
+require './lib/testml/bridge'
+require './lib/testml/util'
+include TestML::Util
+
+class TestMLBridge < TestML::Bridge
+  def uppercase string
+    str string.value.upcase
+  end
+
+  def lowercase string
+    str string.value.downcase
+  end
+
+  def combine *args
+    str args.flatten.map(&:value).join(' ')
+  end
+
+  def f1(num)
+    num = num.value.to_i
+    return str num * 42 + num
+  end
+
+  def f2(num)
+    num = num.value.to_i
+    return str num * num + num
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification
 name: testml
 version: !ruby/object:Gem::Version
-  version: 0.0.1
+  version: 0.0.2
   prerelease: 
 platform: ruby
 authors:
@@ -9,8 +9,24 @@ authors:
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2012-12-20 00:00:00.000000000 Z
-dependencies: []
+date: 2013-04-19 00:00:00.000000000 Z
+dependencies:
+- !ruby/object:Gem::Dependency
+  name: pegex
+  requirement: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: 0.0.3
+  type: :runtime
+  prerelease: false
+  version_requirements: !ruby/object:Gem::Requirement
+    none: false
+    requirements:
+    - - ! '>='
+      - !ruby/object:Gem::Version
+        version: 0.0.3
 description: ! 'TestML is an Acmeist testing framework.
 
 '
@@ -25,8 +41,57 @@ files:
 - LICENSE
 - README.rdoc
 - Rakefile
+- ToDo
+- lib/rake/testml.rb
 - lib/testml.rb
-- test/fail.rb
+- lib/testml/bridge.rb
+- lib/testml/compiler.rb
+- lib/testml/compiler/lite.rb
+- lib/testml/compiler/pegex.rb
+- lib/testml/compiler/pegex/ast.rb
+- lib/testml/compiler/pegex/grammar.rb
+- lib/testml/library.rb
+- lib/testml/library/debug.rb
+- lib/testml/library/standard.rb
+- lib/testml/runtime.rb
+- lib/testml/runtime/unit.rb
+- lib/testml/setup.rb
+- lib/testml/util.rb
+- test/ast/arguments.tml
+- test/ast/basic.tml
+- test/ast/dataless.tml
+- test/ast/exceptions.tml
+- test/ast/external.tml
+- test/ast/function.tml
+- test/ast/label.tml
+- test/ast/markers.tml
+- test/ast/semicolons.tml
+- test/ast/truth.tml
+- test/ast/types.tml
+- test/compile-lite.rb
+- test/compile-testml-document.rb
+- test/compile.rb
+- test/inline-bridge.rb
+- test/inline.rb
+- test/strings.rb
+- test/testml.rb
+- test/testml.yaml
+- test/testml/arguments.tml
+- test/testml/assertions.tml
+- test/testml/basic.tml
+- test/testml/dataless.tml
+- test/testml/exceptions.tml
+- test/testml/external.tml
+- test/testml/external1.tml
+- test/testml/external2.tml
+- test/testml/function.tml
+- test/testml/label.tml
+- test/testml/markers.tml
+- test/testml/semicolons.tml
+- test/testml/standard.tml
+- test/testml/truth.tml
+- test/testml/types.tml
+- test/testml_bridge.rb
 homepage: http://testml.org
 licenses:
 - MIT