* tsexp.c (canon_len): Fixed tests.
authorWerner Koch <wk@gnupg.org>
Fri, 11 Jan 2002 14:55:06 +0000 (14:55 +0000)
committerWerner Koch <wk@gnupg.org>
Fri, 11 Jan 2002 14:55:06 +0000 (14:55 +0000)
tests/ChangeLog
tests/tsexp.c

index a183825..2542e2a 100644 (file)
@@ -1,9 +1,13 @@
+2002-01-11  Werner Koch  <wk@gnupg.org>
+
+       * tsexp.c (canon_len): Fixed tests.
+
 2001-12-18  Werner Koch  <wk@gnupg.org>
 
        * tsexp.c: New.
 
        
- Copyright 2001 Free Software Foundation, Inc.
+ Copyright 2001, 2002 Free Software Foundation, Inc.
 
  This file is free software; as a special exception the author gives
  unlimited permission to copy and/or distribute it, with or without
index 8f110b5..82a0c70 100644 (file)
@@ -1,5 +1,5 @@
 /* tsexp.c  -  S-expression regression tests
- *     Copyright (C) 2001 Free Software Foundation, Inc.
+ *     Copyright (C) 2001, 2002 Free Software Foundation, Inc.
  *
  * This file is part of Libgcrypt.
  *
@@ -168,13 +168,13 @@ canon_len (void)
     int errcode;    /* ... with this error code */
     unsigned char *text; 
   } values[] = {
-    { 13, 13, 0,  0, "10:abcdefghi" },
-    { 14, 13, 0,  0, "10:abcdefghix" },
-    { 12,  0, 2, -2, "10:abcdefghi" },
-    { 13,  0, 0, -7, "010:abcdefghi" },
-    {  1,  0, 1, -2, "1:"},
-    {  2,  0, 1, -2, "1:"},
-    {  3,  3, 0,  0, "1:x"},
+    { 14, 13, 0,  0, "(9:abcdefghi) " },
+    { 16, 15, 0,  0, "(10:abcdefghix)" },
+    { 14,  0,14, -2, "(10:abcdefghi)" },
+    { 15,  0, 1, -7, "(010:abcdefghi)" },
+    {  2,  0, 0, -4, "1:"},
+    {  4,  0, 4, -2, "(1:)"},
+    {  5,  5, 0,  0, "(1:x)"},
     {  2,  2, 0,  0, "()"},
     {  4,  2, 0,  0, "()()"},
     {  4,  4, 0,  0, "(())"},