Commits

Alex Suraci  committed 045b25e

updates for latest atomo
Ignore-this: 5acb09bfc9780fc12f2371a5ac326749

  • Participants
  • Parent commits 8dbfce4

Comments (0)

Files changed (1)

 
 o should: (check: Particle) :=
   when: (check call: [o]) not
-    do: { raise: @(assertion-failed: check on: o) }
+    do: { error: @(assertion-failed: check on: o) }
 
 o should: (check: Block) :=
   when: (o join: check with: [o]) not
-    do: { raise: @(assertion-failed: check on: o) }
+    do: { error: @(assertion-failed: check on: o) }
 
 x should-be: y := x should: @(== y)
 
       x names == p names
   }
 
-x should-raise: y :=
+x should-error: y :=
   { succeeded? = False
 
     ok = {
 
     condition: {
       succeeded? ->
-        raise: @(assertion-failed: @(should-raise: p) on: x)
+        error: @(assertion-failed: @(should-error: p) on: x)
 
       ok -> @ok
 
       otherwise ->
-        raise: @(expected: p got: thrown)
+        error: @(expected: p got: thrown)
     }
   }
 
     }
   } call
 
-indentation := ' ' repeat: (*nesting-level* _? * 2)
+indentation := $  repeat: (*nesting-level* _? * 2)
 
 (s: String) ansi-colored: color :=
   { codes =
       ] zip: (0 .. 7)
 
     (codes lookup: color) match: {
-      @none -> raise: @(invalid-color: color needed: codes (map: @from))
+      @none -> error: @(invalid-color: color needed: codes (map: @from))
       @(ok: code) ->
         "\ESC[9" .. code show .. "m" .. s .. "\ESC[0m"
     }