testml 0.0.1 → 0.0.2

data/lib/testml/runtime/unit.rb

@@ -0,0 +1,94 @@
+require 'test/unit'
+require 'testml/runtime'
+
+# This is the class that Test::Unit will use to run actual tests.  Every time
+# that a test file creates a TestML object, we inject a method called
+# "test_#{test_file_name}" into this class, since we know that Test::Unit
+# calls methods that begin with 'test'.
+class TestML::TestCase < Test::Unit::TestCase
+  attr_accessor :name
+end
+
+class TestML::Runtime::Unit < TestML::Runtime
+  attr_accessor :testcase
+  attr_accessor :planned
+
+  def run(unittest_testcase)
+    @testcase = unittest_testcase
+    @planned = false
+    super()
+    check_plan
+    plan_end
+  end
+
+  def run_assertion(*args)
+    check_plan
+    super(*args)
+  end
+
+  def check_plan
+    if ! @planned
+      title
+      plan_begin
+      @planned = true
+    end
+  end
+
+  # XXX Need to disable by default and provide a simple way to turn on.
+  def title
+    if title = @function.getvar('Title')
+      title = title.value
+      title = "\n=== #{title} ===\n"
+      # TODO Figure out when to print titles.
+      # STDERR.write title
+    end
+  end
+
+  def skip_test(reason)
+    fail "TODO"
+  end
+
+  def plan_begin;end
+
+  def plan_end
+    if plan = @function.getvar('Plan')
+      count = @function.getvar('TestNumber').value
+      testcase.assert_equal plan.value.to_i, count, 'Tests Planned'
+    end
+  end
+
+  def assert_EQ(got, want)
+    got = got.value
+    want = want.value
+    # TODO Move this logic to testml/diff
+    if got != want
+      if want.match /\n/
+        File.open('/tmp/got', 'w') {|f| f.write got}
+        File.open('/tmp/want', 'w') {|f| f.write want}
+        STDERR.write(`diff -u /tmp/want /tmp/got`)
+      end
+    end
+    testcase.assert_equal want, got, get_label
+  end
+
+  def assert_HAS(got, has)
+    got = got.value
+    has = has.value
+    assertion = got.index(has)
+    if !assertion
+      msg = <<"..."
+Failed TestML HAS (~~) assertion. This text:
+'#{got}'
+does not contain this string:
+'#{has}'
+...
+      STDERR.write(msg)
+    end
+    testcase.assert(assertion, get_label)
+  end
+
+  def assert_OK(got)
+    testcase.assert(got.bool.value, get_label)
+  end
+
+end

data/lib/testml/setup.rb

@@ -0,0 +1,65 @@
+require 'rake'
+require 'yaml'
+require 'pathname'
+include FileUtils
+
+DEFAULT_TESTML_CONF = './test/testml.yaml'
+
+class TestML; end
+class TestML::Setup
+  def setup(testml_conf)
+    testml_conf ||= DEFAULT_TESTML_CONF
+    fail "TestML conf file '#{testml_conf}' not found" \
+      unless File.exists? testml_conf
+    fail "TestML conf file must be .yaml" \
+      unless testml_conf.match /\.ya?ml$/
+    # File paths are relative to the yaml file location
+    base = File.dirname testml_conf
+    conf = YAML.load File.read testml_conf
+    source = conf['source_testml_dir'] \
+      or fail "`rake testml` requires 'source_testml_dir' key in '#{testml_conf}'"
+    target = conf['local_testml_dir'] \
+      or fail "`rake testml` requires 'local_testml_dir' key in '#{testml_conf}'"
+    tests = conf['test_file_dir'] || '.'
+    source = File.expand_path source, base
+    target = File.expand_path target, base
+    tests = File.expand_path tests, base
+    fail "'#{source}' directory does not exist" \
+      unless Dir.exists? source
+    mkdir target unless Dir.exists? target
+    mkdir tests unless Dir.exists? tests
+    template = conf['test_file_template']
+    skip = conf['exclude_testml_files'] || []
+    files = conf['include_testml_files'] ||
+      Dir.new(source).grep(/\.tml$/)
+    files.sort.each do |file|
+      next if skip.include? file
+      s = "#{source}/#{file}"
+      t = "#{target}/#{file}"
+      if ! uptodate?(t, [s])
+        puts "Copying #{rel(s)} to #{rel(t)}"
+        cp rel(s), rel(t)
+      end
+      if template
+        test = file.sub /\.tml$/, '.rb'
+        test = conf['test_file_prefix'] + test \
+          if conf['test_file_prefix']
+        test = File.expand_path test, tests
+        hash = {
+          file: rel(t, base),
+        }
+        code = template % hash
+        if ! File.exists?(test) or code != File.read(test)
+          action = File.exists?(test) ? 'Updating' : 'Creating'
+          puts "#{action} test file '#{rel test}'"
+          File.write test, code
+        end
+      end
+    end
+  end
+
+  def rel path, base='.'
+    base = Pathname.new(File.absolute_path(base))
+    Pathname.new(path).relative_path_from(base).to_s
+  end
+end

data/lib/testml/util.rb

@@ -0,0 +1,22 @@
+require 'testml/runtime'
+
+module TestML::Util
+  def list(value)
+    TestML::List.new(value)
+  end
+  def str(value)
+    TestML::Str.new(value)
+  end
+  def num(value)
+    TestML::Num.new(value)
+  end
+  def bool(value)
+    TestML::Bool.new(value)
+  end
+  def none(value)
+    TestML::None.new(value)
+  end
+  def native(value)
+    TestML::Native.new(value)
+  end
+end

data/test/ast/arguments.tml

@@ -0,0 +1,87 @@
+--- !!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::Expression
+    calls:
+    - !!perl/hash:TestML::Point
+      name: what
+    - !!perl/hash:TestML::Call
+      name: combine
+      args:
+      - !!perl/hash:TestML::Point
+        name: who
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Point
+      name: greeting
+  points:
+  - what
+  - who
+  - greeting
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Point
+      name: what
+    - !!perl/hash:TestML::Call
+      name: combine
+      args:
+      - !!perl/hash:TestML::Str
+        value: and
+      - !!perl/hash:TestML::Point
+        name: else
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Point
+      name: greeting
+  points:
+  - what
+  - else
+  - greeting
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Point
+      name: what
+    - !!perl/hash:TestML::Call
+      name: combine
+      args:
+      - !!perl/hash:TestML::Str
+        value: and
+      - !!perl/hash:TestML::Expression
+        calls:
+        - !!perl/hash:TestML::Point
+          name: else
+        - !!perl/hash:TestML::Call
+          name: uppercase
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Point
+      name: upper_greeting
+  points:
+  - what
+  - else
+  - upper_greeting
+
+data:
+- !!perl/hash:TestML::Block
+  label: Dear John
+  points:
+    what: Dear
+    who: John
+    greeting: Dear John
+- !!perl/hash:TestML::Block
+  label: Greetings and Salutations
+  points:
+    what: Greetings
+    else: Salutations
+    greeting: Greetings and Salutations
+    upper_greeting: Greetings and SALUTATIONS

data/test/ast/basic.tml

@@ -0,0 +1,83 @@
+--- !!perl/hash:TestML::Function
+namespace:
+  TestML: !!perl/hash:TestML::Str
+    value: 0.1.0
+statements:
+- !!perl/hash:TestML::Assignment
+  name: Title
+  expr: !!perl/hash:TestML::Str
+    value: A Basic TestML File
+- !!perl/hash:TestML::Assignment
+  name: Plan
+  expr: !!perl/hash:TestML::Num
+    value: 4
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Point
+      name: upper
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Point
+      name: text
+    - !!perl/hash:TestML::Call
+      name: uppercase
+  points:
+  - text
+  - upper
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    expr: !!perl/hash:TestML::Point
+      name: lower
+    name: EQ
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Point
+      name: text
+    - !!perl/hash:TestML::Call
+      name: lowercase
+  points:
+  - text
+  - lower
+- !!perl/hash:TestML::Statement
+  assert: !!perl/hash:TestML::Assertion
+    expr: !!perl/hash:TestML::Expression
+      calls:
+      - !!perl/hash:TestML::Point
+        name: upper
+      - !!perl/hash:TestML::Call
+        name: lowercase
+      - !!perl/hash:TestML::Call
+        name: uppercase
+    name: EQ
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Point
+      name: lower
+    - !!perl/hash:TestML::Call
+      name: uppercase
+  points:
+  - lower
+  - upper
+data:
+- !!perl/hash:TestML::Block
+  label: Test One
+  points:
+    text: I like Pie.
+    upper: I LIKE PIE.
+    lower: i like pie.
+- !!perl/hash:TestML::Block
+  label: Test Two
+  points:
+    text: 'Say it,
+
+      Don''t spray it.
+
+
+
+'
+    lower: 'say it,
+
+      don''t spray it.
+
+'

data/test/ast/dataless.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: Title
+  expr: !!perl/hash:TestML::Str
+    value: TestML with no data section
+- !!perl/hash:TestML::Assignment
+  name: Plan
+  expr: !!perl/hash:TestML::Num
+    value: 2
+- !!perl/hash:TestML::Assignment
+  name: Label
+  expr: !!perl/hash:TestML::Str
+    value: Test $TestNumber
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Str
+    value: foo
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: foo
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Str
+      value: bar
+    - !!perl/hash:TestML::Call
+      name: Str
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Str
+      value: bar

data/test/ast/exceptions.tml

@@ -0,0 +1,59 @@
+--- !!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
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Call
+      name: Throw
+      args:
+      - !!perl/hash:TestML::Point
+        name: error
+    - !!perl/hash:TestML::Call
+      name: NonExistingMethod
+    - !!perl/hash:TestML::Call
+      name: Catch
+  assert: !!perl/hash:TestML::Assertion
+    name: HAS
+    expr: !!perl/hash:TestML::Point
+      name: match
+  points:
+  - error
+  - match
+- !!perl/hash:TestML::Assignment
+  name: message
+  expr: !!perl/hash:TestML::Str
+    value: blowed up
+- !!perl/hash:TestML::Statement
+  expr: !!perl/hash:TestML::Expression
+    calls:
+    - !!perl/hash:TestML::Call
+      name: Throw
+      args:
+      - !!perl/hash:TestML::Call
+        name: message
+    - !!perl/hash:TestML::Call
+      name: Catch
+  assert: !!perl/hash:TestML::Assertion
+    name: EQ
+    expr: !!perl/hash:TestML::Call
+      name: message
+
+data:
+- !!perl/hash:TestML::Block
+  label: Error message from data
+  points:
+    error: 'O NOES!
+
+
+      Something went wrong
+
+'
+    match: Something