#
# Tests for NUL in the middle of a string
#

Reply-Message := "bob\000hello"

#
#  Commented out because it fails
#
#if %length("\000") != 1 {
#	test_fail
#}

if Reply-Message {
   	group tmp
	octets delim

	#
	#  Because "\000" yields "zero length delimiter is not allowed"
	#
	delim = 0x00
	tmp.Reply-Message := %explode(%{Reply-Message}, "%{delim}")

	Reply-Message := tmp.Reply-Message[0]
}

if Reply-Message != "bob" {
	test_fail
}

success
