tests/20basic.tests

   1 # arch-tag: org.pipapo.mala.tests.basic
   2
   3 TESTING "basic tests:" ./test-mala
   4
   5 TEST "no args" <<END
   6 stdout: .
   7 variable: (null)
   8 state: MACRO
   9 END
  10
  11 #TEST "pass" --PASS <<END
  12 #
  13 #state: MACRO
  14 #END
  15
  16
  17 TEST "print" foo --PRINT bar <<END
  18 stdout: bar.
  19 literal: foo.
  20 variable: (null)
  21 state: STATEMENT
  22 END
  23
  24
  25 TEST "subst" --SUBST-TEST <<END
  26 stdout: .
  27 literal: SUBST_SUCCEEDED.
  28 variable: (null)
  29 state: LITERAL
  30 END
  31
  32
  33 TEST "expand" --FOOBAR <<END
  34 stdout: .
  35 literal: foo.
  36 literal: bar.
  37 variable: (null)
  38 state: LITERAL
  39 END
  40
  41
  42 TEST "cat" --CAT foo bar <<END
  43 stdout: .
  44 literal: foobar.
  45 variable: (null)
  46 state: LITERAL
  47 END
  48
  49
  50 TEST "--LITERAL" --LITERAL --LITERAL foobar <<END
  51 stdout: .
  52 literal: --LITERAL.
  53 literal: foobar.
  54 variable: (null)
  55 state: LITERAL
  56 END
  57
  58
  59 TEST "--SKIP" --SKIP 1 --PRINT foo --PRINT bar --PRINT baz <<END
  60 stdout: barbaz.
  61 literal: --PRINT.
  62 literal: foo.
  63 variable: (null)
  64 state: STATEMENT
  65 END
  66
  67
  68 TEST "--SKIP 0" --SKIP 0 --PRINT foo --PRINT bar --PRINT baz <<END
  69 stdout: foobarbaz.
  70 variable: (null)
  71 state: STATEMENT
  72 END
  73
  74
  75 TEST "--SKIP -1" --SKIP -1 --PRINT foo --PRINT bar --PRINT baz <<END
  76 stdout: .
  77 literal: --ERROR-OUT-OF-RANGE.
  78 literal: --SKIP.
  79 literal: -1.
  80 literal: --PRINT.
  81 literal: foo.
  82 literal: --PRINT.
  83 literal: bar.
  84 literal: --PRINT.
  85 literal: baz.
  86 variable: (null)
  87 state: ENOACTION
  88 END
  89
  90
  91 TEST "--SKIP 2" --SKIP 2 --PRINT foo --PRINT bar --PRINT baz <<END
  92 stdout: barbaz.
  93 literal: --PRINT.
  94 literal: foo.
  95 variable: (null)
  96 state: STATEMENT
  97 END
  98
  99
 100 TEST "--SKIP 2 none" --SKIP 2 --PRINT foo <<END
 101 stdout: .
 102 literal: --PRINT.
 103 literal: foo.
 104 variable: (null)
 105 state: STATEMENT
 106 END
 107
 108
 109 TEST "--SKIP 2 missing" --SKIP 2 --PRINT <<END
 110 stdout: .
 111 literal: --ERROR-MISSING-ARGUMENT.
 112 literal: --SKIP.
 113 literal: 2.
 114 literal: --PRINT.
 115 variable: (null)
 116 state: ENOACTION
 117 END
 118
 119