"{ Package: 'stx:libjava/experiments' }"

TestCase subclass:#StInJavaTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-Java-Tests'

!

!StInJavaTests class methodsFor:'accessing'!

resources

    ^ Array with: StInJavaResource

    "Created: / 24-01-2011 / 17:21:47 / kursjan <kursjan@fit.cvut.cz>"

! !

!StInJavaTests methodsFor:'testing'!

_testIsKindOf

    self assertTrue: (StCounter new isKindOf: (Java classForName: 'Counter')).

    "Created: / 09-01-2011 / 13:21:17 / Jan Kurs <kurs.jan@post.cz>"

!

_testJavaCounter

    self shouldnt: [(Java classForName:'CounterManipulator') main:#() ] raise: Exception.

    "Created: / 09-01-2011 / 12:57:31 / Jan Kurs <kurs.jan@post.cz>"

    "Modified: / 09-01-2011 / 19:55:38 / Jan Kurs <kurs.jan@post.cz>"

    "Modified: / 24-01-2011 / 17:22:34 / kursjan <kursjan@fit.cvut.cz>"

!

_testJavaCounter2

    | counter |

    counter := (Java classForName:'Counter') new.

    self shouldnt: [(Java classForName:'CounterManipulator') new doSomething: counter ] raise: Exception.

    "Created: / 09-01-2011 / 12:57:55 / Jan Kurs <kurs.jan@post.cz>"

    "Modified: / 09-01-2011 / 14:02:59 / Jan Kurs <kurs.jan@post.cz>"

!

_testJavaCounter3

    | counter res |

    counter := (Java classForName:'Counter') new.

    res := (Java classForName:'CounterManipulator') new incCounter: counter.

    self assert: res = 1.

    res := (Java classForName:'CounterManipulator') new incCounter: counter.

    self assert: res = 2.

    "Created: / 09-01-2011 / 13:05:40 / Jan Kurs <kurs.jan@post.cz>"

!

_testJavaCounterWithStObject

    | counter |

    counter := StCounter new.

    (Java classForName:'CounterManipulator') new doSomething: counter.

    "Created: / 09-01-2011 / 12:58:09 / Jan Kurs <kurs.jan@post.cz>"

!

_testJavaCounterWithStObject2

    | counter res |

    counter := StCounter new.

    res := (Java classForName:'CounterManipulator') new incCounter: counter.

    self assert: res = 2

    "Created: / 09-01-2011 / 13:50:09 / Jan Kurs <kurs.jan@post.cz>"

!

_testStCounter

    | counter |

    counter := StCounter new.

    self assert: counter count  = 0.

    counter incCount.

    self assert: counter count = 2.

    "Created: / 09-01-2011 / 13:10:28 / Jan Kurs <kurs.jan@post.cz>"

!

_testStObjectJavaMethod

    | counter |

    counter := StCounter new.

    "#sayHello does not exists in StCounter - we have to call JavaMethod"

    self shouldnt: [(Java classForName:'CounterManipulator') new counterHello: counter ] raise: Exception.

    "Created: / 09-01-2011 / 13:54:44 / Jan Kurs <kurs.jan@post.cz>"

!

_testStObjectJavaMethod2

    | counter |

    counter := StCounter new.

    "#sayHello does not exists in StCounter - we have to call JavaMethod"

    self shouldnt: [(Java classForName:'CounterManipulator') new counterGreetings: counter ] raise: Exception.

    "Created: / 09-01-2011 / 14:11:20 / Jan Kurs <kurs.jan@post.cz>"

!

_testStObjectJavaMethod3

    | counter |

    counter := StCounter new.

    self assert: ((Java classForName:'CounterManipulator') new counterGreetings: counter) = 'Hi, this is Counter FROM JAVA'

    "Created: / 09-01-2011 / 14:16:41 / Jan Kurs <kurs.jan@post.cz>"

!

_testStObjectJavaMethod4

    | counter |

    counter := StCounter new.

    self shouldnt: [(Java classForName:'CounterManipulator') new 

            statelessIncCounterBy: counter with: 2

        ] raise: Exception.

    "Created: / 09-01-2011 / 14:50:14 / Jan Kurs <kurs.jan@post.cz>"

!

_testStObjectJavaMethod5

    | counter res |

    counter := StCounter new.

    res:= (Java classForName:'CounterManipulator') new 

            statelessIncCounterBy: counter with: 2.

    self assert: res = 4.

    "Created: / 09-01-2011 / 14:50:09 / Jan Kurs <kurs.jan@post.cz>"

!

_testStObjectSupersend

    | counter |

    counter := StIdentityCounter new.

    self shouldnt: [counter id] raise: Exception.

    "Created: / 09-01-2011 / 15:45:09 / Jan Kurs <kurs.jan@post.cz>"

!

_testStObjectSupersend2

    | counter |

    counter := StIdentityCounter new.

    self assert: (Java as_ST_String: counter id) = 'id#0'.

    counter incCount.

    self assert: (Java as_ST_String: counter id) = 'id#2'.

    "Created: / 09-01-2011 / 15:47:39 / Jan Kurs <kurs.jan@post.cz>"

!

_testStString

    | string res |

    string := StString fromString: 'hello'.

    res := (Java classForName:'StringManipulator') new repeatIt: string.

    self assert: res == string.

    "Modified: / 09-01-2011 / 21:58:53 / Jan Kurs <kurs.jan@post.cz>"

    "Modified: / 17-01-2011 / 12:16:39 / kursjan <kursjan@fit.cvut.cz>"

!

_testStString2

    | string res |

    string := StString fromString: 'hello'.

    res := (Java classForName:'StringManipulator') new hashOfHello.

    self assert: string hashCode = res.

    "Modified: / 09-01-2011 / 21:58:53 / Jan Kurs <kurs.jan@post.cz>"

    "Created: / 17-01-2011 / 12:15:54 / kursjan <kursjan@fit.cvut.cz>"

    "Modified: / 17-01-2011 / 16:43:56 / kursjan <kursjan@fit.cvut.cz>"

!

_testStString3

    | string res |

    string := StString fromString: 'hello'.

    res := (Java classForName:'StringManipulator') new className: string.

    self assert: 'java.lang.String' = res.

    "Modified: / 09-01-2011 / 21:58:53 / Jan Kurs <kurs.jan@post.cz>"

    "Created: / 17-01-2011 / 17:28:55 / kursjan <kursjan@fit.cvut.cz>"

    "Modified: / 17-01-2011 / 19:13:57 / kursjan <kursjan@fit.cvut.cz>"

! !

!StInJavaTests class methodsFor:'documentation'!

version_SVN

    ^ '$Id: StInJavaTests.st,v 1.1 2011-08-18 19:06:54 vrany Exp $'

! !