removed unused tests

OpenPonk · Jul 4, 2024 · b407e70 · b407e70
1 parent 9774810
commit b407e70
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 35 deletions.
diff --git a/repository/OP-UML-XMI/OPUMLXMISpecsStorage.class.st b/repository/OP-UML-XMI/OPUMLXMISpecsStorage.class.st
@@ -104,7 +104,7 @@ OPUMLXMISpecsStorage class >> primitivesMetamodel [
 OPUMLXMISpecsStorage class >> reset [
 
 	<script>
-	Current := nil.
+	self resetCurrent.
 	MetaClassMap := nil.
 	PrimitivesMap := nil.
 	PrimitivesMetaModel := nil.

diff --git a/repository/OP-UML-XMI/OPUMLXMISpecsStorageTest.class.st b/repository/OP-UML-XMI/OPUMLXMISpecsStorageTest.class.st
@@ -5,15 +5,3 @@ Class {
 	#package : 'OP-UML-XMI',
 	#tag : 'Tests'
 }
-
-{ #category : 'tests' }
-OPUMLXMISpecsStorageTest >> testRetrieve [
-	self skip: 'Network requests break when testing code coverage -_-'
-"	| storage contents |
-	storage := OPUMLXMISpecsStorage new.
-	contents := storage at: 'http://www.omg.org/spec/UML/20131001/PrimitiveTypes.xmi'.
-	self assert: contents isNotEmpty.
-	self
-		assert: ((XMLDOMParser parse: contents) root firstElement attributeAt: #name)
-		equals: 'PrimitiveTypes'"
-]
diff --git a/repository/OP-UML-XMI/OPUMLXMIWriterTest.class.st b/repository/OP-UML-XMI/OPUMLXMIWriterTest.class.st
@@ -82,28 +82,6 @@ OPUMLXMIWriterTest >> testClassPrefix [
 	self assert: writer classPrefix equals: 'OPUML'
 ]
 
-{ #category : 'tests - stereotypes' }
-OPUMLXMIWriterTest >> testElementWithStereotype [
-	| result element package profile issueTag |
-	self skip: 'I can''t test this without Profiles being loaded.'.
-	profile := IPIssuesProfileFactory profile.
-	package := OPUMLPackage new name: 'TestPackage'.
-	package profileApplications
-		add:
-			(OPUMLProfileApplication new
-				uuid: package uuid , '-_profileApplication.0';
-				appliedProfile: profile).
-	issueTag := profile ownedStereotype detect: [ :each | each name = 'IssueTag' ].
-	element := OPUMLElement new uuid: 'Element'.
-	package packagedElements add: element.
-	element applyStereotype: issueTag implementationClass new.
-	element appliedStereotypes first reviewed: true.
-	result := (writer write: package) containedItems last.
-	self assert: result xmiName equals: 'IssuesProfile:IssueTag'.
-	self assert: result containedItems second xmiName equals: 'reviewed'.
-	self assert: result containedItems second value equals: 'true'
-]
-
 { #category : 'tests - stereotypes' }
 OPUMLXMIWriterTest >> testWriteAppliedProfile [
 	| profile application result property |