Fix Integer printing and decimalDigitLength

Author: kurtkilpelags

filetree/Neo-JSON-GemStone-Core.package/SmallInteger.extension/instance/decimalDigitLength.st

@@ -1,4 +1,4 @@
 *neo-json-gemstone-core
 decimalDigitLength
 	"Alias needed for Zinc"
-	^ self digitLength
+	^ self numberOfDigitsInBase: 10

filetree/Neo-JSON-GemStone-Core.package/SmallInteger.extension/instance/numberOfDigitsInBase..st

@@ -3,6 +3,5 @@ numberOfDigitsInBase: b
 	"Return how many digits are necessary to print this number in base b.
 	Mostly same as super but an optimized version for base 10 case"
 
-	b = 10 ifFalse: [^super numberOfDigitsInBase: b].
 	self < 0 ifTrue: [^self negated numberOfDigitsInBase: b].
-	^self decimalDigitLength
+	^super numberOfDigitsInBase: b

filetree/Neo-JSON-GemStone-Tests.package/NeoJSONIntegerExtensionTests.class/README.md

@@ -0,0 +1 @@
+NeoJSONIntegerExtensionTests tests Integer-related extensions

filetree/Neo-JSON-GemStone-Tests.package/NeoJSONIntegerExtensionTests.class/instance/testDecimalDigitLength.st

@@ -0,0 +1,9 @@
+public
+testDecimalDigitLength
+
+	self
+		assert: 9 decimalDigitLength
+		equals: 1.
+	self
+		assert: 9999999 decimalDigitLength
+		equals: 7

filetree/Neo-JSON-GemStone-Tests.package/NeoJSONIntegerExtensionTests.class/instance/testPrintOnBaseLengthPadded.st

@@ -0,0 +1,31 @@
+public
+testPrintOnBaseLengthPadded
+
+	| int length printer |
+	printer := [String streamContents: [:stream | int printOn: stream base: 10 length: length padded: true]].
+
+	int := 9.
+	length := 1.
+	self
+		assert: printer value
+		equals: '9'.
+	length := 4.
+	self
+		assert: printer value
+		equals: '0009'.
+
+	int := -9.
+	length := 1.
+	self
+		assert: printer value
+		equals: '-9'.
+	length := 3.
+	self
+		assert: printer value
+		equals: '-09'.
+
+	int := 9999999.
+	length := 8.
+	self
+		assert: printer value
+		equals: '09999999'

filetree/Neo-JSON-GemStone-Tests.package/NeoJSONIntegerExtensionTests.class/properties.json

@@ -0,0 +1,13 @@
+{
+	"category" : "Neo-JSON-GemStone-Tests",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [],
+	"name" : "NeoJSONIntegerExtensionTests",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"type" : "normal" }