Changed GroovyEvaluatorTests workspace tests to run headless.
So they are no longer skipped if no display is available.
--- a/GroovyEvaluatorTests.st Sun Aug 17 08:46:59 2014 +0100
+++ b/GroovyEvaluatorTests.st Wed Sep 17 17:13:06 2014 +0100
@@ -107,9 +107,9 @@
test_workspace_01
| ws retval |
- self skipIf: Screen current isNil description: 'This test needs connection to display'.
+ "/ self skipIf: Screen current isNil description: 'This test needs connection to display'.
- ws := Workspace new.
+ ws := Workspace basicNew.
retval := GroovyEvaluator evaluate: 'a = 1; a' notifying: ws.
self assert: retval = 1.
self assert: (Workspace workspaceVariables includesKey: 'a').
@@ -121,9 +121,9 @@
test_workspace_02a
| ws retval |
- self skipIf: Screen current isNil description: 'This test needs connection to display'.
+ "/ self skipIf: Screen current isNil description: 'This test needs connection to display'.
- ws := Workspace new.
+ ws := Workspace basicNew.
Workspace workspaceVariables at: 'x' put: 10 asValue.
retval := GroovyEvaluator evaluate: '10 + x' notifying: ws.
@@ -136,9 +136,9 @@
test_workspace_02b
| ws retval obj |
- self skipIf: Screen current isNil description: 'This test needs connection to display'.
+ "/ self skipIf: Screen current isNil description: 'This test needs connection to display'.
- ws := Workspace new.
+ ws := Workspace basicNew.
obj := JAVA java lang Object new.
Workspace workspaceVariables at: 'x' put: obj asValue.
retval := GroovyEvaluator evaluate: 'x.hashCode()' notifying: ws.
@@ -151,9 +151,9 @@
test_workspace_03
| ws retval o |
- self skipIf: Screen current isNil description: 'This test needs connection to display'.
+ "/ self skipIf: Screen current isNil description: 'This test needs connection to display'.
- ws := Workspace new.
+ ws := Workspace basicNew.
o := Object new.
Workspace workspaceVariables at: 'y' put: o asValue.
retval := GroovyEvaluator evaluate: 'y' notifying: ws.