From ac9e86d7c2035c58af81a4ce162adeac9dbd85cf Mon Sep 17 00:00:00 2001
From: Brendan <brendan.landais@thalesgroup.com>
Date: Thu, 24 Sep 2026 09:33:39 +0200
Subject: [PATCH] Add serialization tests for ToPane

---
 .../ToSerializerTest.class.st                 | 56 +++++++++++++++++++
 1 file changed, 56 insertions(+)

diff --git a/src/Toplo-Serialization-Tests/ToSerializerTest.class.st b/src/Toplo-Serialization-Tests/ToSerializerTest.class.st
index 9f4babb..f84767b 100644
--- a/src/Toplo-Serialization-Tests/ToSerializerTest.class.st
+++ b/src/Toplo-Serialization-Tests/ToSerializerTest.class.st
@@ -448,6 +448,62 @@ ToSerializerTest >> testToListElement [
 			self assert: element toConfiguration rowNumbers ]
 ]
 
+{ #category : #tests }
+ToSerializerTest >> testToPane [
+
+	| origin |
+	origin := ToPane new.
+	
+	self test: origin on: [ :element | 
+		self assert: element background isTransparent
+	].
+
+	origin background: Color red.
+	
+	self test: origin on: [ :element | 
+		self assert: element background paint color equals: Color red.
+	]
+		
+]
+
+{ #category : #tests }
+ToSerializerTest >> testToPane2 [
+
+	| origin |
+	origin := ToPane new.
+	
+	self test: origin on: [ :element | 
+		self deny: element hasChildren
+	].
+	1 to: 5 do:[:i |  
+		origin addChild: BlElement new
+	].
+	
+	self test: origin on: [ :element |
+		self assert: element hasChildren.
+		self assert: element children size equals: 5
+	]
+		
+]
+
+{ #category : #tests }
+ToSerializerTest >> testToPane3 [
+
+	| origin |
+	origin := ToPane new.
+	
+	self test: origin on: [ :element | 
+		self assert: element layout class equals: BlLinearLayout.
+	].
+	
+	origin layout: BlFrameLayout new.
+	
+	self test: origin on: [ :element | 
+		self assert: element layout class equals: BlFrameLayout.
+	]
+		
+]
+
 { #category : #tests }
 ToSerializerTest >> testToRadioButton1 [