[chatter] r11793 - in trunk/libraries: network/koala/sources/examples/koala-basics network/koala/sources/examples/koala-demo network/koala/sources/koala-test-suite registry/generic

[cgay at mccarthy.opendylan.org]

Author: cgay
Date: Fri May  2 13:16:18 2008
New Revision: 11793

Added:
   trunk/libraries/network/koala/sources/examples/koala-demo/
      - copied from r11774, trunk/libraries/network/koala/sources/examples/koala-basics/
   trunk/libraries/network/koala/sources/examples/koala-demo/library.dylan
      - copied unchanged from r11792, trunk/libraries/network/koala/sources/examples/koala-basics/library.dylan
   trunk/libraries/network/koala/sources/examples/koala-demo/main.dylan
      - copied unchanged from r11792, trunk/libraries/network/koala/sources/examples/koala-basics/main.dylan
   trunk/libraries/network/koala/sources/koala-test-suite/
   trunk/libraries/network/koala/sources/koala-test-suite/koala-test-suite.dylan   (contents, props changed)
   trunk/libraries/network/koala/sources/koala-test-suite/koala-test-suite.lid   (contents, props changed)
   trunk/libraries/network/koala/sources/koala-test-suite/library.dylan   (contents, props changed)
   trunk/libraries/registry/generic/koala-demo   (contents, props changed)
      - copied, changed from r11774, trunk/libraries/registry/generic/koala-basics
Removed:
   trunk/libraries/network/koala/sources/examples/koala-basics/
   trunk/libraries/registry/generic/koala-basics
Log:
job: koala
Renaming koala-basics to koala-demo.  Step 1 of 2.

Added: trunk/libraries/network/koala/sources/koala-test-suite/koala-test-suite.dylan
==============================================================================
--- (empty file)
+++ trunk/libraries/network/koala/sources/koala-test-suite/koala-test-suite.dylan	Fri May  2 13:16:18 2008
@@ -0,0 +1,44 @@
+Module: koala-test-suite
+
+define constant fmt = format-to-string;
+
+define suite koala-test-suite ()
+    suite header-test-suite;
+end suite koala-test-suite;
+
+define suite header-test-suite ()
+  test test-date-header-parsing;
+end suite header-test-suite;
+
+define test test-date-header-parsing ()
+  // RFC 2616 - 3.3.1
+  // HTTP/1.1 clients and servers that parse the date value MUST accept
+  // all three formats (for compatibility with HTTP/1.0), though they MUST
+  // only generate the RFC 1123 format for representing HTTP-date values
+  // in header fields. See section 19.3 for further information.
+  //    Sun, 06 Nov 1994 08:49:37 GMT  ; RFC 822, updated by RFC 1123
+  //    Sunday, 06-Nov-94 08:49:37 GMT ; RFC 850, obsoleted by RFC 1036
+  //    Sun Nov  6 08:49:37 1994       ; ANSI C's asctime() format
+  let date = encode-date(1994, 11, 06, 08, 49, 37, time-zone-offset: 0);
+  let test-dates = #(
+    "Tue, 15 Nov 1994 12:45:26 GMT",  // rfc1123
+    "Sun, 06 Nov 1994 08:49:37 GMT",  // rfc1123
+    "Sunday, 06-Nov-94 08:49:37 GMT", // rfc850
+    "Sun Nov  6 08:49:37 1994"        // ANSI C asctime (GMT)
+    );
+  for (test-date in test-dates)
+    check-equal(fmt("Date %s parses correctly", test-date),
+                date,
+                parse-http-date(test-date, 0, test-date.size));
+  end;
+end test test-date-header-parsing;
+
+define function main ()
+  run-test-application(koala-test-suite);
+end;
+
+begin
+  main();
+end;
+
+

Added: trunk/libraries/network/koala/sources/koala-test-suite/koala-test-suite.lid
==============================================================================
--- (empty file)
+++ trunk/libraries/network/koala/sources/koala-test-suite/koala-test-suite.lid	Fri May  2 13:16:18 2008
@@ -0,0 +1,3 @@
+Library: koala-test-suite
+Files: library
+       koala-test-suite

Added: trunk/libraries/network/koala/sources/koala-test-suite/library.dylan
==============================================================================
--- (empty file)
+++ trunk/libraries/network/koala/sources/koala-test-suite/library.dylan	Fri May  2 13:16:18 2008
@@ -0,0 +1,21 @@
+Module:   dylan-user
+Synopsis: Koala test suite
+Author:   Carl Gay
+
+define library koala-test-suite
+  use common-dylan;
+  use system,
+    import: { date };
+  use koala,
+    import: { httpi };
+  use testworks;
+  export koala-test-suite;
+end library koala-test-suite;
+
+define module koala-test-suite
+  use common-dylan;
+  use date;
+  use httpi;
+  use testworks;
+end module koala-test-suite;
+

Copied: trunk/libraries/registry/generic/koala-demo (from r11774, trunk/libraries/registry/generic/koala-basics)
==============================================================================
--- trunk/libraries/registry/generic/koala-basics	(original)
+++ trunk/libraries/registry/generic/koala-demo	Fri May  2 13:16:18 2008
@@ -1 +1 @@
-abstract://dylan/network/koala/sources/examples/koala-basics/koala-basics.lid
+abstract://dylan/network/koala/sources/examples/koala-demo/koala-demo.lid