Addons/general/unittest

general/unittest - Unit Test Framework

Typical framework for test-driven development.
Test units are defined in individual script file.
Main verb unittest file is defined in the z locale.

See also: examples in demo folder in SVN; change history.

Installation

Use JAL/Package Manager.

Usage

Naming conventions

• script_test.ijs for a test script

• test_verb for a test verb

• verb_attribute for attribute related to a test verb

Procedure

• Create test scripts as show in demo examples

• Run the unittest verb against test scripts

• Observe the output

Test execution can be controlled with attributes:

• ignore_testVerb=. 1
  will ignore the testVerb

• expect_testVerb=. 'error'
  will expect 'error' in the testVerb

Setup and tear down code can be executed before and after all and each test verb, when the following verbs are defined in the test script: before_all, after_all, before_each, after_each.

Examples

before_all=: 3 : 0
  require'files'
)

test_add=: 3 : 0
  assert 4 = 2+2
)

test_fexist=: 3 : 0
  assert fexist jpath'~help/index1.htm'
)

ex1_expect=: 'domain error'
test_ex1=: 3 : 0
  2+'2'
)

ig2_ignore=: 1
test_ig2=: 3 : 0
  2+2
)

with the test run:

•    unittest jpath '~addons/general/unittest/demo/one_test.ijs'
  Test: d:\math\j602\addons\general\unittest\demo\one_test.ijs
  add ..................................... OK
  ex1 ..................................... OK
  fexist .................................. Fail
  |assertion failure: assert
  |       assert fexist jpath'~help/index1.htm'
  ig2 ..................................... Ignored

before_each=: 3 : 0
  smoutput 'before ',y
)

after_each=: 3 : 0
  smoutput 'after ',y
)

test_rplc=: 3 : 0
  require 'strings'
  assert'zz123' -: 'qq123' rplc 'qq';'zz'
)

test_bad=: 3 : 0
  require 'strings'
  assert'qq123' -: 'qq123' rplc 'qq';'zz'
)

ex2_expect=: 'value error'
test_ex2=: 3 : 0
  dummy 123
) 

with the test run:

•    unittest jpath '~addons/general/unittest/demo/two_test.ijs'
  before bad
  after bad
  before ex2
  after ex2
  before rplc
  after rplc
  Test: d:\math\j602\addons\general\unittest\demo\two_test.ijs
  bad ..................................... Fail
  |assertion failure: assert
  |       assert'qq123'-:'qq123'rplc'qq';'zz'
  ex2 ..................................... OK
  rplc .................................... OK

See Also

• Guides/Batch Test

• Addons/Test scripts

Contributed by OlegKobchenko