--- a/Tools__ChangeSetSpec.st	Tue Mar 20 12:36:40 2012 +0000
+++ b/Tools__ChangeSetSpec.st	Tue Mar 20 16:59:54 2012 +0000
@@ -152,6 +152,38 @@
     "Created: / 19-03-2012 / 23:31:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!ChangeSetSpec methodsFor:'testing'!
+
+isChangeSet
+    ^self isExplicit
+
+    "Created: / 20-03-2012 / 14:58:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isDirectory
+    ^false
+
+    "Created: / 20-03-2012 / 14:59:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isExplicit
+    ^false
+
+    "Created: / 20-03-2012 / 14:58:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isFile
+    ^false
+
+    "Created: / 20-03-2012 / 14:58:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isPackage
+    ^false
+
+    "Created: / 20-03-2012 / 14:58:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ChangeSetSpec::Directory class methodsFor:'accessing'!
 
 editorSpecSelector
@@ -195,6 +227,14 @@
     directory := aStringOrFilename.
 ! !
 
+!ChangeSetSpec::Directory methodsFor:'testing'!
+
+isDirectory
+    ^true
+
+    "Created: / 20-03-2012 / 14:59:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ChangeSetSpec::Explicit class methodsFor:'accessing'!
 
 editorSpecSelector
@@ -219,6 +259,14 @@
     ^ self shouldImplement
 ! !
 
+!ChangeSetSpec::Explicit methodsFor:'testing'!
+
+isExplicit
+    ^true
+
+    "Created: / 20-03-2012 / 14:59:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ChangeSetSpec::File class methodsFor:'accessing'!
 
 editorSpecSelector
@@ -262,6 +310,14 @@
     file := something.
 ! !
 
+!ChangeSetSpec::File methodsFor:'testing'!
+
+isFile
+    ^true
+
+    "Created: / 20-03-2012 / 14:59:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ChangeSetSpec::Package class methodsFor:'accessing'!
 
 editorSpecSelector
@@ -299,6 +355,14 @@
     package := aStringOrSymbol.
 ! !
 
+!ChangeSetSpec::Package methodsFor:'testing'!
+
+isPackage
+    ^true
+
+    "Created: / 20-03-2012 / 14:59:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ChangeSetSpec class methodsFor:'documentation'!
 
 version_CVS
@@ -306,5 +370,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeSetSpec.st 7946 2012-03-20 12:36:40Z vranyj1 $'
+    ^ '$Id: Tools__ChangeSetSpec.st 7947 2012-03-20 16:59:54Z vranyj1 $'
 ! !