"{ Package: 'stx:libcomp' }"
TestCase subclass:#OldParserTest
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'System-Compiler'
!
!OldParserTest class methodsFor:'documentation'!
documentation
"
documentation to be added.
[author:]
Claus Gittinger (cg@alan)
[see also:]
[instance variables:]
[class variables:]
"
!
history
"Created: / 15.5.2002 / 14:15:10 / cg"
! !
!OldParserTest methodsFor:'initialize / release'!
setUp
"common setup - invoked before testing"
super setUp
!
tearDown
"common cleanup - invoked after testing"
super tearDown
! !
!OldParserTest methodsFor:'tests'!
testSqueakExtensions1
|rslt|
Compiler allowSqueakExtensions:true.
rslt := Compiler
evaluate:' { }'.
self assert:( rslt = #() ).
rslt := Compiler
evaluate:' { 1 }'.
self assert:( rslt = #(1) ).
rslt := Compiler
evaluate:' { 1 . 2 }'.
self assert:( rslt = #( 1 2 ) ).
rslt := Compiler
evaluate:' { 1 . 2 . 3 }'.
self assert:( rslt = #( 1 2 3 ) ).
rslt := Compiler
evaluate:' { 1 . 2 . 3 . 4 }'.
self assert:( rslt = #( 1 2 3 4) ).
rslt := Compiler
evaluate:' { 1 . 2 . 3 . 4 . 5 }'.
self assert:( rslt = #( 1 2 3 4 5) ).
rslt := Compiler
evaluate:' { 1 . 2 . 3 . 4 . 5 . 6 }'.
self assert:( rslt = #( 1 2 3 4 5 6) ).
rslt := Compiler
evaluate:' { 1 . 2 . 3 . 4 . 5 . 6 . 7 }'.
self assert:( rslt = #( 1 2 3 4 5 6 7) ).
rslt := Compiler
evaluate:' { 1 . 2 . 3 . 4 . 5 . 6 . 7 . 8 }'.
self assert:( rslt = #( 1 2 3 4 5 6 7 8) ).
rslt := Compiler
evaluate:' { 1 . 2 . 3 . 4 . 5 . 6 . 7 . 8 . 9}'.
self assert:( rslt = #( 1 2 3 4 5 6 7 8 9) ).
rslt := Compiler
evaluate:' { 1 . 2 . 3 . 4 . 5 . 6 . 7 . 8 . 9 . 10 }'.
self assert:( rslt = #( 1 2 3 4 5 6 7 8 9 10) ).
rslt := Compiler
evaluate:' { 1 factorial.
2 factorial.
3 factorial.
4 factorial.
5 factorial.
6 factorial.
7 factorial.
8 factorial.
9 factorial.
10 factorial }'.
self assert:( rslt = (#( 1 2 3 4 5 6 7 8 9 10) collect:[:n | n factorial]) ).
Compiler allowSqueakExtensions:false.
"
self run:#testSqueakExtensions
self new testSqueakExtensions
"
!
testSqueakExtensions2
|rslt|
Compiler allowSqueakExtensions:true.
Class withoutUpdatingChangesDo:[
self class compile:'
__test
^ {
{ 1 factorial }.
{ 2 factorial }.
{ 3 factorial }.
{ 4 factorial }.
{ 5 factorial }.
{ 6 factorial }.
{ 7 factorial }.
{ 8 factorial }.
{ 9 factorial }.
{ 10 factorial }.
}
'.
].
rslt := self perform:#__test.
self assert:( rslt = ( (1 to:10) collect:[:n | (Array with:n factorial)] ) asArray).
Class withoutUpdatingChangesDo:[
self class removeSelector:#__test
].
Compiler allowSqueakExtensions:false.
"
self run:#testSqueakExtensions2
self new testSqueakExtensions2
"
! !
!OldParserTest class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libcomp/OldParserTest.st,v 1.2 2002-05-15 10:52:32 cg Exp $'
! !