Index: openacs-4/packages/xowiki/www/admin/test.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/test.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/xowiki/www/admin/test.tcl	1 Feb 2009 14:29:21 -0000	1.16
+++ openacs-4/packages/xowiki/www/admin/test.tcl	1 Feb 2009 16:25:16 -0000	1.17
@@ -528,6 +528,35 @@
 
 ########################################################################
 test section "Small tests"
+
+test subsection "Link resolver"
+set p [::xowiki::Page info instances]
+? {llength $p} 1 "expect only one instance"
+
+foreach {link result external} {
+  hello 1 0
+  en:hello 1 0
+  xxx 0 0
+  //XOWIKI-TEST/hello 1 0
+  //XOWIKI-TEST/en:hello 1 0
+  //XOWIKI-TEST/en/hello 0 0
+  //forums 1 1
+  //XOWIKI-TEST/weblog?m=create-new&p.exercise_form=en:l1 1 0
+} {
+  set l [$p create_link $link]
+  switch [$l info class] {
+    ::xowiki::Link {
+      ? {expr {[$l resolve] > 0}} $result "Can resolve link $link"
+    }
+    ::xowiki::ExternalLink {
+      ? {expr {$external == 1}} $result "found external link"
+    }
+  }
+  $l destroy
+}
+
+
+
 test subsection "Filter expressions"
 
 ? {::xowiki::FormPage filter_expression \