diff --git a/lib/modules/testsuite.in b/lib/modules/testsuite.in
index e38fcefdfd97e26fd36fe88d892659648c6b793c..6105135e3c132be0af0160ae7e4c2ea830ace2c6 100644
--- a/lib/modules/testsuite.in
+++ b/lib/modules/testsuite.in
@@ -1,4 +1,4 @@
-dnl $Id: testsuite.in,v 1.23 2003/11/21 16:17:56 grubba Exp $
+dnl $Id: testsuite.in,v 1.24 2004/03/15 22:14:52 nilsson Exp $
 
 dnl - Array
 
@@ -649,6 +649,11 @@ test_eq( Int.parity(4), 1 )
 test_eq( Int.parity(6), 0 )
 test_eq( Int.parity(7), 1 )
 
+test_eq( Int.swap_word(array_sscanf("\1\2", "%2c")[0]),
+         array_sscanf("\2\1", "%2c")[0])
+test_eq( Int.swap_long(array_sscanf("\1\2\3\4", "%4c")[0]),
+         array_sscanf("\4\3\2\1", "%4c")[0])
+
 dnl - Mapping
 dnl Mapping.delete
 dnl Mapping.Iterator