hg/stx-goodies-smallsense: refactoring_custom/SmallSense__CustomBrowserEnvironmentTests.st@af3a048f9618 (annotated)

829 59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	1	"
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	2	A custom code generation and refactoring support for Smalltalk/X
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	3	Copyright (C) 2013-2015 Jakub Nesveda
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	4	Copyright (C) 2013-now Jan Vrany
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	5
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	6	This library is free software; you can redistribute it and/or
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	7	modify it under the terms of the GNU Lesser General Public
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	8	License as published by the Free Software Foundation; either
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	9	version 2.1 of the License.
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	10
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	11	This library is distributed in the hope that it will be useful,
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	14	Lesser General Public License for more details.
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	15
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	16	You should have received a copy of the GNU Lesser General Public
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	17	License along with this library; if not, write to the Free Software
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	18	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	19	"
833 297eb38e4eee Package jn:refactoring_custom renamed to stx:goodies/smallsense/refactoring_custom Jan Vrany <jan.vrany@fit.cvut.cz> parents: 830 diff changeset	20	"{ Package: 'stx:goodies/smallsense/refactoring_custom' }"
723 b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	21
830 1a88f5e65fe2 Classes moved to namespace SmallSense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 829 diff changeset	22	"{ NameSpace: SmallSense }"
803 95cdac772759 Fixed failing tests caused by new STX release Jakub Nesveda <jakubnesveda@seznam.cz> parents: 723 diff changeset	23
830 1a88f5e65fe2 Classes moved to namespace SmallSense Jan Vrany <jan.vrany@fit.cvut.cz> parents: 829 diff changeset	24	Smalltalk::TestCase subclass:#CustomBrowserEnvironmentTests
723 b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	25	instanceVariableNames:'environment'
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	26	classVariableNames:''
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	27	poolDictionaries:''
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	28	category:'Interface-Refactoring-Custom-Tests'
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	29	!
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	30
829 59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	31	!CustomBrowserEnvironmentTests class methodsFor:'documentation'!
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	32
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	33	copyright
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	34	"
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	35	A custom code generation and refactoring support for Smalltalk/X
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	36	Copyright (C) 2013-2015 Jakub Nesveda
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	37	Copyright (C) 2013-now Jan Vrany
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	38
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	39	This library is free software; you can redistribute it and/or
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	40	modify it under the terms of the GNU Lesser General Public
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	41	License as published by the Free Software Foundation; either
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	42	version 2.1 of the License.
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	43
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	44	This library is distributed in the hope that it will be useful,
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	45	but WITHOUT ANY WARRANTY; without even the implied warranty of
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	46	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	47	Lesser General Public License for more details.
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	48
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	49	You should have received a copy of the GNU Lesser General Public
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	50	License along with this library; if not, write to the Free Software
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	51	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	52	"
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	53	! !
59bfd92fcef0 Test fixes (all test pass now) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 803 diff changeset	54
723 b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	55	!CustomBrowserEnvironmentTests methodsFor:'initialization & release'!
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	56
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	57	setUp
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	58
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	59	environment := BrowserEnvironment new.
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	60
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	61	"Modified: / 05-11-2014 / 21:29:20 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	62	! !
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	63
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	64	!CustomBrowserEnvironmentTests methodsFor:'tests'!
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	65
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	66	test_which_category_includes_existing_class
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	67	\| expectedCategory actualCategory className \|
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	68
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	69	expectedCategory := self class category.
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	70
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	71	className := self class name.
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	72	actualCategory := environment whichCategoryIncludes: className.
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	73
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	74	self assert: expectedCategory = actualCategory.
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	75
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	76	"Created: / 05-11-2014 / 21:33:34 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	77	!
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	78
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	79	test_which_category_includes_non_existing_class
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	80	\| expectedCategory actualCategory className \|
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	81
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	82	expectedCategory := nil.
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	83
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	84	className := #DummyClassForTestCase01.
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	85	self assert: (Smalltalk at: className) isNil.
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	86
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	87	actualCategory := environment whichCategoryIncludes: className.
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	88
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	89	self assert: expectedCategory = actualCategory.
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	90
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	91	"Created: / 05-11-2014 / 21:32:27 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	92	! !
b1ba8bae9cef return nil category when class is not found in BrowserEnvironment Jakub Nesveda <jakubnesveda@seznam.cz> parents: diff changeset	93

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 13 Nov 2017 22:26:12 -0300
changeset 1060	af3a048f9618
parent 833	297eb38e4eee
child 1072	a44c741ee5ef
permissions	-rw-r--r--