A new version of NetworkTests was added to project The Inbox:
http://source.squeak.org/inbox/NetworkTests-EG.60.mcz

==================== Summary ====================

Name: NetworkTests-EG.60
Author: EG
Time: 20 July 2021, 2:17:56.228415 pm
UUID: b4f604c2-96cd-4147-b87b-df2925fc2c6e
Ancestors: NetworkTests-dtl.59

These are the tests for new IPv6 String/Byte conversion methods that I've added to NetNameResolver

=============== Diff against NetworkTests-dtl.59 ===============

Item was added:
+ TestCase subclass: #NetworkIPv6StringTest
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'NetworkTests-Kernel'!

Item was added:
+ ----- Method: NetworkIPv6StringTest>>testCompressedZerosOnlyToString (in category 'as yet unclassified') -----
+ testCompressedZerosOnlyToString
+ 	"Ensure that a ByteArray of size 16 consisting of all zeros is
+ 	correctly represented as just the compressed zero IPv6 string (::)"
+ 	| source expected result |
+ 	source := #[ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ].
+ 	expected := '::'.
+ 	result := NetNameResolver stringFromIPv6Address: source.
+ 	
+ 	self assert: expected equals: result.!

Item was added:
+ ----- Method: NetworkIPv6StringTest>>testCompressedZerosOnlytoBytes (in category 'as yet unclassified') -----
+ testCompressedZerosOnlytoBytes
+ 	"Ensure that an IPv6 string containing only compressed zeroes
+ 	(::) responds with a ByteArray of all zeros."
+ 	| source expected result |
+ 	source := '::'.
+ 	expected := #[ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ].
+ 	result := NetNameResolver addressFromIPv6String: source.
+ 	
+ 	self assert: expected equals: result.!

Item was added:
+ ----- Method: NetworkIPv6StringTest>>testHeadCompressedZerosToBytes (in category 'as yet unclassified') -----
+ testHeadCompressedZerosToBytes
+ 	"Ensure that compressed zeros (::) at the start of the
+ 	IPv6 string are accurately represented in the resulting ByteArray"
+ 	| source expected result |
+ 	source := '::2001:db8'.
+ 	expected := #[ 0 0 0 0 0 0 0 0 0 0 0 0 32 1 13 184 ].
+ 	result := NetNameResolver addressFromIPv6String: source.
+ 	
+ 	self assert: expected equals: result.!

Item was added:
+ ----- Method: NetworkIPv6StringTest>>testHeadCompressedZerosToString (in category 'as yet unclassified') -----
+ testHeadCompressedZerosToString
+ 	"Ensure that a valid 16-size ByteArray corresponding
+ 	to an IPv6 address that begins with some number of
+ 	compressed zeros accurately responds with a string
+ 	that begins with the compressed symbol (::)."
+ 	| source expected result |
+ 	source := #[ 0 0 0 0 0 0 0 0 0 0 0 0 32 1 13 184 ].
+ 	expected := '::2001:db8'.
+ 	result := NetNameResolver stringFromIPv6Address: source.
+ 	
+ 	self assert: expected equals: result. !

Item was added:
+ ----- Method: NetworkIPv6StringTest>>testMiddleCompressedZeroToBytes (in category 'as yet unclassified') -----
+ testMiddleCompressedZeroToBytes
+ 	"Ensure that the compressed zeros, represented by '::' in
+ 	the source IPv6 string, are accurately written out to the
+ 	resulting ByteArray."
+ 	| source expected result |
+ 	source := '2001:db8::1:0:0:1'.
+ 	expected := #[32 1 13 184 0 0 0 0 0 1 0 0 0 0 0 1].
+ 	result := NetNameResolver addressFromIPv6String: source.
+ 	
+ 	self assert: expected equals: result.!

Item was added:
+ ----- Method: NetworkIPv6StringTest>>testMiddleCompressedZeroToString (in category 'as yet unclassified') -----
+ testMiddleCompressedZeroToString
+ 	"Ensure that a size-16 ByteArray corresponding to an IPv6 address
+ 	that contains some middle range of consecutive zeros responds with
+ 	a string that includes the consecutive zero substring (::) in the correct place."
+ 	| source expected result |
+ 	source := #[32 1 13 184 0 0 0 0 0 1 0 0 0 0 0 1].
+ 	expected := '2001:db8::1:0:0:1'.
+ 	result := NetNameResolver stringFromIPv6Address: source.
+ 	
+ 	self assert: expected equals: result.!

Item was added:
+ ----- Method: NetworkIPv6StringTest>>testTailCompressedZerosToBytes (in category 'as yet unclassified') -----
+ testTailCompressedZerosToBytes
+ 	"Ensure that compressed zeroes (::) at the tail of a valid
+ 	IPv6 string are accurately represented in the resulting ByteArray."
+ 	| source expected result |
+ 	source := 'db8:2001::'.
+ 	expected := #[ 13 184 32 1 0 0 0 0 0 0 0 0 0 0 0 0 ].
+ 	result := NetNameResolver addressFromIPv6String: source.
+ 	
+ 	self assert: expected equals: result.!

Item was added:
+ ----- Method: NetworkIPv6StringTest>>testTailCompressedZerosToString (in category 'as yet unclassified') -----
+ testTailCompressedZerosToString
+ 	"Ensure that a size 16 ByteArray corresponding to an IPv6 address
+ 	that ends in a contiguous range of zeros has the correct compressed
+ 	zero substring (::) at the end of the string."
+ 	| source expected result |
+ 	source := #[ 13 184 32 1 0 0 0 0 0 0 0 0 0 0 0 0 ].
+ 	expected := 'db8:2001::'.
+ 	result := NetNameResolver stringFromIPv6Address: source.
+ 	
+ 	self assert: expected equals: result.!