From 90969c720f44af7dcc57db7991e92982b955a32d Mon Sep 17 00:00:00 2001 From: vitormcruz Date: Fri, 3 May 2024 16:25:41 -0300 Subject: [PATCH] Removing html generation by hand, seaside is better. --- .../Tome-Adapter-Web/TestResult.extension.st | 42 ------------------- .../Tome-Adapter-Web/TomeFeature.extension.st | 15 ------- .../TomeScenario.extension.st | 14 ------- pharo/Tome-Adapter-Web/package.st | 1 - 4 files changed, 72 deletions(-) delete mode 100644 pharo/Tome-Adapter-Web/TestResult.extension.st delete mode 100644 pharo/Tome-Adapter-Web/TomeFeature.extension.st delete mode 100644 pharo/Tome-Adapter-Web/TomeScenario.extension.st delete mode 100644 pharo/Tome-Adapter-Web/package.st diff --git a/pharo/Tome-Adapter-Web/TestResult.extension.st b/pharo/Tome-Adapter-Web/TestResult.extension.st deleted file mode 100644 index 4d3e8d1..0000000 --- a/pharo/Tome-Adapter-Web/TestResult.extension.st +++ /dev/null @@ -1,42 +0,0 @@ -Extension { #name : #TestResult } - -{ #category : #'*Tome-Adapter-Web' } -TestResult >> printOnAsHtmlFragment: aStream resultsFrom: aFeatureClass [ - - aFeatureClass isFeature ifFalse: [ ^ self ]. - - aFeatureClass printOnAsHtml: aStream. - aStream - nextPut: Character cr; - nextPut: Character cr. - - self failures do: [ :testCase | testCase concreteScenario printOnAsHtmlFragment: aStream ]. - self errors do: [ :testCase | testCase concreteScenario printOnAsHtmlFragment: aStream ]. - self passed do: [ :testCase | testCase concreteScenario printOnAsHtmlFragment: aStream ]. -] - -{ #category : #'*Tome-Adapter-Web' } -TestResult >> toHtmlFileAt: aFileReference resultsFrom: aFeatureClass [ - - aFeatureClass isFeature ifFalse: [ ^ self ]. - - aFileReference ensureCreateFile. - - aFileReference writeStreamDo: [ :stream | - stream - nextPutAll: ''; cr; - nextPutAll: ''; cr; - nextPutAll: ''; cr; - nextPutAll: '
'; cr.
-			
-		self printOnAsHtmlFragment: stream resultsFrom: aFeatureClass.
-		
-		stream
-			nextPutAll: '
'; cr; - nextPutAll: ''; cr; - nextPutAll: ''. - - ]. - - ^ aFileReference -] diff --git a/pharo/Tome-Adapter-Web/TomeFeature.extension.st b/pharo/Tome-Adapter-Web/TomeFeature.extension.st deleted file mode 100644 index af53d0b..0000000 --- a/pharo/Tome-Adapter-Web/TomeFeature.extension.st +++ /dev/null @@ -1,15 +0,0 @@ -Extension { #name : #TomeFeature } - -{ #category : #'*Tome-Adapter-Web' } -TomeFeature class >> printOnAsHtml: aStream [ - - | aTomeFeature | - aTomeFeature := self new. - - aStream - nextPutAll: ' Feature: '; - nextPutAll: ''; - nextPutAll: (aTomeFeature class featureName ifNil: [ aTomeFeature class name ]); - nextPutAll: ''; - nextPut: Character cr -] diff --git a/pharo/Tome-Adapter-Web/TomeScenario.extension.st b/pharo/Tome-Adapter-Web/TomeScenario.extension.st deleted file mode 100644 index 897761b..0000000 --- a/pharo/Tome-Adapter-Web/TomeScenario.extension.st +++ /dev/null @@ -1,14 +0,0 @@ -Extension { #name : #TomeScenario } - -{ #category : #'*Tome-Adapter-Web' } -TomeScenario >> printOnAsHtmlFragment: aStream [ - - aStream - tab; - nextPutAll: 'Scenario: '; - nextPutAll: ''; - nextPutAll: name; - nextPutAll: ''; cr; - nextPutAll: self definition; cr; cr - -] diff --git a/pharo/Tome-Adapter-Web/package.st b/pharo/Tome-Adapter-Web/package.st deleted file mode 100644 index c4ec457..0000000 --- a/pharo/Tome-Adapter-Web/package.st +++ /dev/null @@ -1 +0,0 @@ -Package { #name : #'Tome-Adapter-Web' }