From 36daf3ce15e8c2f807ee88844e10170635c0e0ea Mon Sep 17 00:00:00 2001
From: Milton Mamani Torres <akevalion@gmail.com>
Date: Fri, 5 May 2023 02:32:10 +0200
Subject: [PATCH] Delete scripts directory

---
 scripts/preLoading.st | 10 ----------
 scripts/runTest.sh    | 19 -------------------
 scripts/runTest.st    | 28 ----------------------------
 3 files changed, 57 deletions(-)
 delete mode 100644 scripts/preLoading.st
 delete mode 100644 scripts/runTest.sh
 delete mode 100644 scripts/runTest.st

diff --git a/scripts/preLoading.st b/scripts/preLoading.st
deleted file mode 100644
index c5ceca9..0000000
--- a/scripts/preLoading.st
+++ /dev/null
@@ -1,10 +0,0 @@
-"Removing Roassal3 :V"
-
-packagesRegExp := { '*Roassal3*' }.
-
-packages := packagesRegExp flatCollect: [ :regExp |
-	RPackageOrganizer default packages
-		select: [ :p | regExp match: p packageName ] ].
-
-packages := packages reject: [ :pck | pck name = 'Roassal3-Pharo7' ].
-packages do: [ :package | package removeFromSystem ].
diff --git a/scripts/runTest.sh b/scripts/runTest.sh
deleted file mode 100644
index 7548e03..0000000
--- a/scripts/runTest.sh
+++ /dev/null
@@ -1,19 +0,0 @@
-curl -L https://get.pharo.org/64/ | bash
-./pharo --headless Pharo.image ./scripts/runTest.st
-
-FILE=/tmp/result.txt
-if [ ! -f "$FILE" ]; then
-    echo "ERROR: $FILE does not exists!"
-    exit 1
-fi
-
-
-cat $FILE
-set RES = `grep ERROR $FILE`
-
-if [ -n "$RES" ]; then
-		exit 1
-else
-		echo "ALL TEST PASSED"
-		exit 0
-fi
diff --git a/scripts/runTest.st b/scripts/runTest.st
deleted file mode 100644
index b9bbc7a..0000000
--- a/scripts/runTest.st
+++ /dev/null
@@ -1,28 +0,0 @@
-"We capture all the unit tests in Pharo"
-unitTestsBefore := TestCase withAllSubclasses.
-
-"We load the application software analyzer"
-[ Metacello new
-    baseline: 'Roassal3Exporters';
-    repository: 'github://ObjectProfile/Roassal3Exporters';
-    load. ] on: MCMergeOrLoadWarning do: [ :warning | warning load ].
-
-"We identify the unit tests contained in the loaded application"
-unitTests := (TestCase withAllSubclasses copyWithoutAll: unitTestsBefore) sorted: [ :c1 :c2 | c1 name < c2 name ].
-
-"We create a file that will contain the result of the test execution"
-path := '/tmp/result.txt'.
-path asFileReference exists ifTrue: [ path asFileReference delete ].
-stream := path asFileReference writeStream.
-
-"We run the unit tests"
-unitTests do: [ :unitTestClass |
-	res := unitTestClass buildSuite run.
-	(res hasFailures or: [ res hasErrors ]) ifTrue: [ stream nextPutAll: 'ERROR: ' ].
-	stream nextPutAll: unitTestClass name, ' ', res asString.
-	stream crlf
-].
-
-"We close the stream and quit Pharo"
-stream close.
-SmalltalkImage current quitPrimitive