Changeset 318 for ruby/trunk/lib/adl_parser/test

Timestamp:

Oct 14, 2009, 3:49:28 AM (15 years ago)

Author:

Tatsukawa, Akimichi

Message:

successfully parsing all the adl files under ​http://www.openehr.org/svn/knowledge/archetypes/dev/adl/openehr/ehr directory

Location:

ruby/trunk/lib/adl_parser/test

Files:

• adl/openEHR-EHR-CLUSTER.exam-uterus.v1.adl (added)
• adl/openEHR-EHR-COMPOSITION.encounter.v1draft.adl (modified) (1 diff)
• adl/openEHR-EHR-ITEM_TREE.follow_up.v1draft.adl (added)
• adl/openEHR-EHR-ITEM_TREE.medication-formulation.v1.adl (added)
• parser_test.rb (modified) (3 diffs)
• remote_adl_test.rb (modified) (1 diff)
• scanner_test.rb (modified) (3 diffs)

ruby/trunk/lib/adl_parser/test/adl/openEHR-EHR-COMPOSITION.encounter.v1draft.adl

@@ -10 +10 @@
         ["name"] = <"Thomas Beale">
         ["organisation"] = <"Ocean Informatics">
-        ["date"] = <"10/10/2005">
+        ["date"] = <"2005-10-10">
     >
     details = <

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

@@ -10 +10 @@
   end
 
+  must "openEHR-EHR-CLUSTER.exam-uterus.v1.adl be properly parsed" do
+    file =  File.read("#{TEST_ROOT_DIR}/adl/openEHR-EHR-CLUSTER.exam-uterus.v1.adl")
+    assert_nothing_raised do
+      ast = @parser.parse(file, 'openEHR-EHR-CLUSTER.exam-uterus.v11')
+      assert_instance_of OpenEhr::RM::Support::Identification::ArchetypeID, ast.archetype_id
+    end
+  end
+
   must "openEHR-EHR-SECTION.summary.v1.adl be properly parsed" do
     file =  File.read("#{TEST_ROOT_DIR}/adl/openEHR-EHR-SECTION.summary.v1.adl")
@@ -108 +116 @@
   end
 
-  must "openEHR-EHR-COMPOSITION.encounter.v1draft.adl be properly parsed" do
-    file =  File.read("#{TEST_ROOT_DIR}/adl/openEHR-EHR-COMPOSITION.encounter.v1draft.adl")
-    assert_nothing_raised do
-      ast = @parser.parse(file, 'openEHR-EHR-COMPOSITION.encounter.v1draft')
-      assert_instance_of OpenEhr::RM::Support::Identification::ArchetypeID, ast.archetype_id
-    end
-  end
 
   must "openEHR-EHR-INSTRUCTION.medication.v1.adl be properly parsed" do
@@ -232 +233 @@
   end
 
+  must "openEHR-EHR-COMPOSITION.encounter.v1draft.adl be properly parsed" do
+    file =  File.read("#{TEST_ROOT_DIR}/adl/openEHR-EHR-COMPOSITION.encounter.v1draft.adl")
+    assert_nothing_raised do
+      ast = @parser.parse(file, 'openEHR-EHR-COMPOSITION.encounter.v1draft')
+      assert_instance_of OpenEhr::RM::Support::Identification::ArchetypeID, ast.archetype_id
+    end
+  end
+
+  must "openEHR-EHR-ITEM_TREE.follow_up.v1draft.adl be properly parsed" do
+    file =  File.read("#{TEST_ROOT_DIR}/adl/openEHR-EHR-ITEM_TREE.follow_up.v1draft.adl")
+    assert_nothing_raised do
+      ast = @parser.parse(file, 'openEHR-EHR-ITEM_TREE.follow_up.v1draft')
+      assert_instance_of OpenEhr::RM::Support::Identification::ArchetypeID, ast.archetype_id
+    end
+  end
+
+  must "openEHR-EHR-ITEM_TREE.medication-formulation.v1.adl be properly parsed" do
+    file =  File.read("#{TEST_ROOT_DIR}/adl/openEHR-EHR-ITEM_TREE.medication-formulation.v1.adl")
+    assert_nothing_raised do
+      ast = @parser.parse(file, 'openEHR-EHR-ITEM_TREE.medication-formulation.v1')
+      assert_instance_of OpenEhr::RM::Support::Identification::ArchetypeID, ast.archetype_id
+    end
+  end
+
 end

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

@@ -2 +2 @@
 
 class RemoteADLTest < Test::Unit::TestCase
-  #http://www.openehr.org/wsvn/knowledge/archetypes/dev/adl/openehr/
   def setup
     @adls = []
-    doc = Hpricot( open("http://www.openehr.org/svn/knowledge/archetypes/dev/adl/test/").read )
     dirs = ["cluster/", "composition/", "element/", "entry/", "section/", "structure/"]
     dirs.each do |dir|

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

@@ -98 +98 @@
     end
   end
+
+  must "assert CADLScanner scanner scan V_ISO8601_DURATION_CONSTRAINT_PATTERN" do
+    @scanner.scan("PW") do |sym, val|
+      assert_equal :V_ISO8601_DURATION_CONSTRAINT_PATTERN,sym
+      assert_equal "PW",val
+    end
+  end
 end
 
@@ -124 +131 @@
       assert_equal "string",val
     end
+
+    @scanner.scan("\"2005-10-10\"") do |sym, val|
+      assert_equal :V_STRING,sym
+      assert_equal "2005-10-10",val
+    end
+
     @scanner.scan("\"1605E211E9BFB4093A72CCE7A9792FF9\"") do |sym, val|
       assert_equal :V_STRING,sym
@@ -129 +142 @@
     end
   end
+
+  must "assert DADLScanner scanner scan V_URI" do
+    @scanner.scan("http://openEHR.org/Services") do |sym, val|
+      assert_equal :V_URI,sym
+      assert_equal "http://openEHR.org/Services",val
+    end
+  end
 end