Mercurial Mercurial > hg > stx-goodies-regression / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Sat, 01 Apr 2000 15:24:32 +0200
changeset 59 5dfe7fc71559
parent 58 98b8f998027c
child 60 f23dd849290e
*** empty log message ***
RegressionTests__BlockTest.st file | annotate | diff | comparison | revisions
RegressionTests__CompilerTest.st file | annotate | diff | comparison | revisions
RegressionTests__FileStreamTest.st file | annotate | diff | comparison | revisions
RegressionTests__IntegerTest.st file | annotate | diff | comparison | revisions 
--- a/RegressionTests__BlockTest.st	Sat Apr 01 15:23:41 2000 +0200
+++ b/RegressionTests__BlockTest.st	Sat Apr 01 15:24:32 2000 +0200
@@ -4,7 +4,7 @@
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Tests - Regression'
+	category:'Tests-Regression'
 !
 
 
--- a/RegressionTests__CompilerTest.st	Sat Apr 01 15:23:41 2000 +0200
+++ b/RegressionTests__CompilerTest.st	Sat Apr 01 15:24:32 2000 +0200
@@ -2,7 +2,7 @@
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Tests - Compiler'
+	category:'Tests-Regression'
 !
 
 
@@ -133,37 +133,37 @@
 
 testSmalltalk_if_else_isSmalltalkX
     Smalltalk isSmalltalkX ifTrue:[
-        ^ 'yes'
+	^ 'yes'
     ] ifFalse:[
-        ^ 'no'
+	^ 'no'
     ]
 !
 
 testSmalltalk_if_else_isVisualWorks
     Smalltalk isVisualWorks ifTrue:[
-        ^ 'yes'
+	^ 'yes'
     ] ifFalse:[
-        ^ 'no'
+	^ 'no'
     ]
 !
 
 testSmalltalk_if_isSmalltalkX
     Smalltalk isSmalltalkX ifTrue:[
-        ^ 'yes'
+	^ 'yes'
     ].
     ^ 'no'
 !
 
 testSmalltalk_if_isSqueak
     Smalltalk isSqueak ifTrue:[
-        ^ 'yes'
+	^ 'yes'
     ].
     ^ 'no'
 !
 
 testSmalltalk_if_isVisualWorks
     Smalltalk isVisualWorks ifTrue:[
-        ^ 'yes'
+	^ 'yes'
     ].
     ^ 'no'
 !
--- a/RegressionTests__FileStreamTest.st	Sat Apr 01 15:23:41 2000 +0200
+++ b/RegressionTests__FileStreamTest.st	Sat Apr 01 15:24:32 2000 +0200
@@ -4,7 +4,7 @@
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Tests - Streams'
+	category:'Tests-Regression'
 !
 
 
@@ -108,18 +108,18 @@
     sz := 'testFile' asFilename fileSize.
 
     p := [
-        nLoop timesRepeat:[
-            self readFileExpecting:sz.
-        ].
+	nLoop timesRepeat:[
+	    self readFileExpecting:sz.
+	].
     ] forkAt:7.
 
     count := 0.
     [p isDead] whileFalse:[
-        Delay waitForMilliseconds:5.
-        p interruptWith:[count := count + 1].
+	Delay waitForMilliseconds:5.
+	p interruptWith:[count := count + 1].
     ].
     ('read file <1p> times; interrupted <2p> times' 
-        expandMacrosWith:nLoop with:count) printCR
+	expandMacrosWith:nLoop with:count) printCR
 
     "
      self test3
@@ -141,17 +141,17 @@
     s := PipeStream readingFrom:'sleep 5'.
 
     p := [
-        s readWait.
-        'readWait finished' printCR.
+	s readWait.
+	'readWait finished' printCR.
     ] forkAt:7.
 
     count := 0.
     [p isDead] whileFalse:[
-        Delay waitForMilliseconds:5.
-        p interruptWith:[count := count + 1].
+	Delay waitForMilliseconds:5.
+	p interruptWith:[count := count + 1].
     ].
     ('readWait interrupted <1p> times' 
-        expandMacrosWith:count) printCR.
+	expandMacrosWith:count) printCR.
 
     s close.
 
@@ -175,17 +175,17 @@
     s := PipeStream readingFrom:'sleep 5; echo hello'.
 
     p := [
-        s readWait.
-        'readWait finished' printCR.
+	s readWait.
+	'readWait finished' printCR.
     ] forkAt:7.
 
     count := 0.
     [p isDead] whileFalse:[
-        Delay waitForMilliseconds:5.
-        p interruptWith:[count := count + 1].
+	Delay waitForMilliseconds:5.
+	p interruptWith:[count := count + 1].
     ].
     ('readWait interrupted <1p> times' 
-        expandMacrosWith:count) printCR.
+	expandMacrosWith:count) printCR.
 
     s close.
 
@@ -209,16 +209,16 @@
     s := PipeStream readingFrom:'sleep 5'.
 
     p := [
-        'read: ' print. s nextLine printCR.
+	'read: ' print. s nextLine printCR.
     ] forkAt:7.
 
     count := 0.
     [p isDead] whileFalse:[
-        Delay waitForMilliseconds:5.
-        p interruptWith:[count := count + 1].
+	Delay waitForMilliseconds:5.
+	p interruptWith:[count := count + 1].
     ].
     ('read interrupted <1p> times' 
-        expandMacrosWith:count) printCR.
+	expandMacrosWith:count) printCR.
 
     s close.
 
@@ -242,16 +242,16 @@
     s := PipeStream readingFrom:'sleep 5; echo hello'.
 
     p := [
-        'read: ' print. s nextLine printCR.
+	'read: ' print. s nextLine printCR.
     ] forkAt:7.
 
     count := 0.
     [p isDead] whileFalse:[
-        Delay waitForMilliseconds:5.
-        p interruptWith:[count := count + 1].
+	Delay waitForMilliseconds:5.
+	p interruptWith:[count := count + 1].
     ].
     ('read interrupted <1p> times' 
-        expandMacrosWith:count) printCR.
+	expandMacrosWith:count) printCR.
 
     s close.
 
--- a/RegressionTests__IntegerTest.st	Sat Apr 01 15:23:41 2000 +0200
+++ b/RegressionTests__IntegerTest.st	Sat Apr 01 15:24:32 2000 +0200
@@ -4,7 +4,7 @@
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
-	category:'Tests - Regression'
+	category:'Tests-Regression'
 !
hg/stx-goodies-regression