Changeset 319 for ruby/trunk/lib/adl_parser/test/remote_adl_test.rb

Timestamp:

Oct 14, 2009, 5:29:38 PM (15 years ago)

Author:

Tatsukawa, Akimichi

Message:

polishing ADL parser to handle ​http://www.openehr.org/svn/knowledge/archetypes/dev/adl/test/

File:

• ruby/trunk/lib/adl_parser/test/remote_adl_test.rb (modified) (3 diffs)

ruby/trunk/lib/adl_parser/test/remote_adl_test.rb

@@ -3 +3 @@
 class RemoteADLTest < Test::Unit::TestCase
   def setup
-    @adls = []
-    dirs = ["cluster/", "composition/", "element/", "entry/", "section/", "structure/"]
-    dirs.each do |dir|
+    @ehr_adls = []
+    ehr_dirs = ["cluster", "composition", "element", "entry", "section", "structure"]
+    ehr_dirs.each do |dir|
       doc = Hpricot( open("http://www.openehr.org/svn/knowledge/archetypes/dev/adl/openehr/ehr/#{dir}").read )
       (doc/:a).each do |link|
         if link[:href] =~ /.*\.adl\Z/
-          @adls << "http://www.openehr.org/svn/knowledge/archetypes/dev/adl/openehr/ehr/#{dir}#{$~}"
+          @ehr_adls << "http://www.openehr.org/svn/knowledge/archetypes/dev/adl/openehr/ehr/#{dir}/#{$~}"
+        end
+      end
+    end
+
+    @test_adls = []
+    test_dirs = ["basics","clinical_types","dadl","description","generic_types","language","non-conforming","paths","rm_checking","slots","specialisation","structure","terminology","unicode","validation"]
+    test_dirs.each do |dir|
+      doc = Hpricot( open("http://www.openehr.org/svn/knowledge/archetypes/dev/adl/test/#{dir}").read )
+      (doc/:a).each do |link|
+        if link[:href] =~ /.*\.adl\Z/
+          @test_adls << "http://www.openehr.org/svn/knowledge/archetypes/dev/adl/test/#{dir}/#{$~}"
         end
       end
@@ -16 +27 @@
   end
 
-  must "adls should properly parsed" do
+
+  must "test_adls should properly parsed" do
     assert_nothing_raised do
-      @adls.each do |adl|
+      @test_adls.each do |adl|
         puts "Processing #{adl}"
         open(adl) do |file|
@@ -27 +39 @@
   end
 
+#   must "ehr_adls should properly parsed" do
+#     assert_nothing_raised do
+#       @ehr_adls.each do |adl|
+#         puts "Processing #{adl}"
+#         open(adl) do |file|
+#           @parser.parse(file.read, adl)
+#         end
+#       end
+#     end
+#   end
+
+
 end