"{ Encoding: utf8 }"

"
stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
Copyright (C) 2013-2014 Jan Vrany

This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License. 

This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
"
"{ Package: 'stx:goodies/smallsense' }"

"{ NameSpace: SmallSense }"

CompletionEngineTests subclass:#AbstractJavaCompletionEngineTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'SmallSense-Tests'
!

!AbstractJavaCompletionEngineTests class methodsFor:'documentation'!

copyright
"
stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
Copyright (C) 2013-2014 Jan Vrany

This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License. 

This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
"
! !

!AbstractJavaCompletionEngineTests class methodsFor:'accessing'!

resources
    ^ Array with: JavaCompletionEngineEnvironmentResource

    "Created: / 22-05-2014 / 17:18:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!AbstractJavaCompletionEngineTests class methodsFor:'queries'!

isAbstract
    "Return if this class is an abstract class.
     True is returned here for myself only; false for subclasses.
     Abstract subclasses must redefine again."

    ^ self == AbstractJavaCompletionEngineTests.
! !

!AbstractJavaCompletionEngineTests methodsFor:'tests - completion'!

test_complete_catch_01a
    "
    Test catch completion
    "

    | java_io_IOException |

    self complete:'try { 
        do(something);
    } catch ( IOE┃'.

    java_io_IOException := context environment == Smalltalk 
                            ifTrue:[ context environment classNamed: #'JAVA::java::io::IOException'  ]
                            ifFalse:[ context environment classNamed: #'java/io/IOException'].

    self assert: result notEmpty.
    self assert: (result allSatisfy:[:each | each isSmallSenseClassPO ]).
    self assert: (result contains:[:each | each klass == java_io_IOException ]).

    "Created: / 07-08-2014 / 15:11:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

test_complete_catch_01b
    "
    Test catch completion
    "

    | java_io_IOException |

    self complete:'try { 
        do(something);
    } catch ( ┃'.

    java_io_IOException := context environment == Smalltalk 
                            ifTrue:[ context environment classNamed: #'JAVA::java::io::IOException'  ]
                            ifFalse:[ context environment classNamed: #'java/io/IOException'].

    self assert: result notEmpty.
    self assert: (result allSatisfy:[:each | each isSmallSenseClassPO ]).
    self assert: (result contains:[:each | each klass == java_io_IOException ]).

    "Created: / 07-08-2014 / 16:02:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

test_complete_catch_01c
    "
    Test catch completion
    "

    | java_io_IOException |

    self complete:'try { 
        do(something);
    } catch ( java.io.IO┃'.

    java_io_IOException := context environment == Smalltalk 
                            ifTrue:[ context environment classNamed: #'JAVA::java::io::IOException'  ]
                            ifFalse:[ context environment classNamed: #'java/io/IOException'].

    self assert: result notEmpty.
    self assert: (result allSatisfy:[:each | each isSmallSenseClassPO ]).
    self assert: (result contains:[:each | each klass == java_io_IOException ]).

    "Created: / 07-08-2014 / 16:07:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

test_complete_catch_01d
    "
    Test catch completion
    "

    | java_io_IOException |

    self complete:'try { 
        do(something);
    } catch ( java.io.┃'.

    java_io_IOException := context environment == Smalltalk 
                            ifTrue:[ context environment classNamed: #'JAVA::java::io::IOException'  ]
                            ifFalse:[ context environment classNamed: #'java/io/IOException'].

    self assert: result notEmpty.
    self assert: (result allSatisfy:[:each | each isSmallSenseClassPO ]).
    self assert: (result contains:[:each | each klass == java_io_IOException ]).

    "Created: / 07-08-2014 / 16:08:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

test_complete_catch_01e
    "
    Test catch completion
    "

    | java_io_IOException |

    self complete:'try { 
        do(something);
    } catch ( jav┃'.

    java_io_IOException := context environment == Smalltalk 
                            ifTrue:[ context environment classNamed: #'JAVA::java::io::IOException'  ]
                            ifFalse:[ context environment classNamed: #'java/io/IOException'].

    self assert: result notEmpty.
    self assert: (result allSatisfy:[:each | each isSmallSenseClassPO ]).
    self assert: (result contains:[:each | each klass == java_io_IOException ]).

    "Created: / 07-08-2014 / 16:20:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !