From cd46f289d1e0dbd468bfe492d7b2c5df7c20eadb Mon Sep 17 00:00:00 2001
From: Sven Van Caekenberghe <sven@beta9.be>
Date: Thu, 15 Feb 2024 13:41:13 +0100
Subject: [PATCH] Update P3GExtensionsTest.class.st to fix ordered/unordered
 issue

P3GExtensionsTest>>#testDictionaryWritePython3On
and
P3GExtensionsTest>>#testSetWritePython3On
assume an order that does not exist (Set and Dict are unordered), which makes them fail (for me at least).

Since this test is only about writing and checking the expected output, the simplest solution is to use only one element.
---
 src/Python3Generator/P3GExtensionsTest.class.st | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/src/Python3Generator/P3GExtensionsTest.class.st b/src/Python3Generator/P3GExtensionsTest.class.st
index cbd9da2..edc6310 100644
--- a/src/Python3Generator/P3GExtensionsTest.class.st
+++ b/src/Python3Generator/P3GExtensionsTest.class.st
@@ -24,12 +24,9 @@ P3GExtensionsTest >> testCharacterWritePython3On [
 { #category : #'tests-translating' }
 P3GExtensionsTest >> testDictionaryWritePython3On [
 	| dict string |
-	dict := { 
-	'a' -> 1.
-	42 -> 'b'.
-	3 -> 4 } asDictionary.
+	dict := { 'a' -> 1 } asDictionary.
 	string := String streamContents: [ :s | dict writePython3On: s ].
-	self assert: string equals: '{''a'' : 1 , 42 : ''b'' , 3 : 4}'
+	self assert: string equals: '{''a'' : 1}'
 ]
 
 { #category : #'tests-translating' }
@@ -84,8 +81,8 @@ P3GExtensionsTest >> testSequenceableCollectionWritePython3On [
 { #category : #'tests-translating' }
 P3GExtensionsTest >> testSetWritePython3On [
 	| string |
-	string := String streamContents: [ :s | #(1 2 3 4) asSet writePython3On: s ].
-	self assert: string equals: '{1,2,3,4}'.
+	string := String streamContents: [ :s | #(42) asSet writePython3On: s ].
+	self assert: string equals: '{42}'.
 
 	string := String streamContents: [ :s | Set new writePython3On: s ].
 	self assert: string equals: 'set()'