Added regression tests for #toHtml, #toMarkdown, #toLatex and #toString for numeric column names.

Author: Joshua-Dias-Barreto

src/DataFrame-Tests/DataFrameTest.class.st

@@ -5167,6 +5167,60 @@ DataFrameTest >> testToHtml [
 	self assert: df toHtml equals: expectedString
 ]
 
+{ #category : #tests }
+DataFrameTest >> testToHtmlWithNumericColumnNames [
+
+	| expectedString weather |
+	expectedString :=   '<table border="1" class="dataframe">
+  <thead>
+    <tr style="text-align: left;">      <th>#      </th>
+      <th>1   </th>
+      <th>2    </th>
+      <th>3    </th>
+    </tr>
+  </thead>
+  <tbody>
+    <tr>      <th>''01:10''</th>
+      <td>2.4 </td>
+      <td>true </td>
+      <td>#rain</td>
+    </tr>
+    <tr>      <th>''01:30''</th>
+      <td>0.5 </td>
+      <td>true </td>
+      <td>#rain</td>
+    </tr>
+    <tr>      <th>''01:50''</th>
+      <td>-1.2</td>
+      <td>true </td>
+      <td>#snow</td>
+    </tr>
+    <tr>      <th>''02:10''</th>
+      <td>-2.3</td>
+      <td>false</td>
+      <td>#-   </td>
+    </tr>
+    <tr>      <th>''02:30''</th>
+      <td>3.2 </td>
+      <td>true </td>
+      <td>#rain</td>
+    </tr>
+  </tbody>
+</table>'.
+	weather := DataFrame withRows:
+		           #( #( 2.4 true rain ) 
+						  #( 0.5 true rain )
+		              #( -1.2 true snow ) 
+						  #( -2.3 false #- )
+		              #( 3.2 true rain ) ).
+
+	weather columnNames: #( 1 2 3 ).
+
+	weather rowNames: #( '01:10' '01:30' '01:50' '02:10' '02:30' ).
+
+	self assert: weather toHtml equals: expectedString
+]
+
 { #category : #tests }
 DataFrameTest >> testToLatex [
 
@@ -5186,6 +5240,39 @@ DataFrameTest >> testToLatex [
 	self assert: df toLatex equals: expectedString
 ]
 
+{ #category : #tests }
+DataFrameTest >> testToLatexWithNumericColumnNames [
+
+	| expectedString weather |
+	expectedString := '\begin{tabular}{|l|l|l|l|}
+\hline
+\#      & 1    & 2     & 3    \\
+\hline
+''01:10'' & 2.4  & true  & #rain\\
+\hline
+''01:30'' & 0.5  & true  & #rain\\
+\hline
+''01:50'' & -1.2 & true  & #snow\\
+\hline
+''02:10'' & -2.3 & false & #-   \\
+\hline
+''02:30'' & 3.2  & true  & #rain\\
+\hline
+\end{tabular}'.
+	weather := DataFrame withRows:
+		           #( #( 2.4 true rain ) 
+						  #( 0.5 true rain )
+		              #( -1.2 true snow ) 
+						  #( -2.3 false #- )
+		              #( 3.2 true rain ) ).
+
+	weather columnNames: #( 1 2 3 ).
+
+	weather rowNames: #( '01:10' '01:30' '01:50' '02:10' '02:30' ).
+
+	self assert: weather toLatex equals: expectedString
+]
+
 { #category : #tests }
 DataFrameTest >> testToMarkdown [
 
@@ -5199,6 +5286,32 @@ DataFrameTest >> testToMarkdown [
 	self assert: df toMarkdown equals: expectedString
 ]
 
+{ #category : #tests }
+DataFrameTest >> testToMarkdownWithNumericColumnNames [
+
+	| expectedString weather|
+	expectedString := '| #       | 1    | 2     | 3     | 
+| ------- | ---- | ----- | ----- | 
+| ''01:10'' | 2.4  | true  | #rain | 
+| ''01:30'' | 0.5  | true  | #rain | 
+| ''01:50'' | -1.2 | true  | #snow | 
+| ''02:10'' | -2.3 | false | #-    | 
+| ''02:30'' | 3.2  | true  | #rain | 
+'.
+weather := DataFrame withRows: #(
+  (2.4 true rain)
+  (0.5 true rain)
+  (-1.2 true snow)
+  (-2.3 false -)
+  (3.2 true rain)).
+
+weather columnNames: #( 1 2 3).
+
+weather rowNames: #( '01:10' '01:30' '01:50' '02:10' '02:30').
+
+	self assert: weather toMarkdown equals: expectedString
+]
+
 { #category : #tests }
 DataFrameTest >> testToString [
 
@@ -5212,6 +5325,31 @@ DataFrameTest >> testToString [
 	self assert: df toString equals: expectedString
 ]
 
+{ #category : #tests }
+DataFrameTest >> testToStringWithNumericColumnNames [
+
+	| expectedString weather |
+	expectedString := '#        1     2      3      
+''01:10''  2.4   true   #rain  
+''01:30''  0.5   true   #rain  
+''01:50''  -1.2  true   #snow  
+''02:10''  -2.3  false  #-     
+''02:30''  3.2   true   #rain  
+'.
+	weather := DataFrame withRows:
+		           #( #( 2.4 true rain ) 
+						  #( 0.5 true rain )
+		              #( -1.2 true snow ) 
+						  #( -2.3 false #- )
+		              #( 3.2 true rain ) ).
+
+	weather columnNames: #( 1 2 3 ).
+
+	weather rowNames: #( '01:10' '01:30' '01:50' '02:10' '02:30' ).
+
+	self assert: weather toString equals: expectedString
+]
+
 { #category : #tests }
 DataFrameTest >> testTransposed [