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

Timestamp:

Oct 19, 2009, 5:10:43 PM (15 years ago)

Author:

Tatsukawa, Akimichi

Message:

commit at the timing of leaving Pittsburgh

Location:

ruby/trunk/lib/adl_parser/test

Files:

• adl/adl-test-ENTRY.basic_types_fail.v1.adl (added)
• adl/adl-test-ENTRY.most_minimal.v1.adl (added)
• adl/adl-test-ENTRY.structure_test1.v1.adl (added)
• parser_test.rb (modified) (2 diffs)
• remote_adl_test.rb (modified) (2 diffs)

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

@@ -258 +258 @@
   end
 
+  must "adl-test-ENTRY.assumed_types.v1.adl be properly parsed" do
+    file =  File.read("#{TEST_ROOT_DIR}/adl/adl-test-ENTRY.assumed_types.v1.adl")
+    assert_nothing_raised do
+      ast = @parser.parse(file, 'adl-test-ENTRY.assumed_types.v1')
+      assert_instance_of OpenEhr::RM::Support::Identification::ArchetypeID, ast.archetype_id
+    end
+  end
+
   must "adl-test-ENTRY.basic_types.v1.adl be properly parsed" do
     file =  File.read("#{TEST_ROOT_DIR}/adl/adl-test-ENTRY.basic_types.v1.adl")
@@ -267 +275 @@
 
 
-  must "adl-test-ENTRY.assumed_types.v1.adl be properly parsed" do
-    file =  File.read("#{TEST_ROOT_DIR}/adl/adl-test-ENTRY.assumed_types.v1.adl")
-    assert_nothing_raised do
-      ast = @parser.parse(file, 'adl-test-ENTRY.assumed_types.v1')
+  must "adl-test-ENTRY.basic_types_fail.v1.adl be properly parsed" do
+    file =  File.read("#{TEST_ROOT_DIR}/adl/adl-test-ENTRY.basic_types_fail.v1.adl")
+    assert_raise Racc::ParseError do
+      ast = @parser.parse(file, 'adl-test-ENTRY.basic_types_fail.v1')
+      assert_instance_of OpenEhr::RM::Support::Identification::ArchetypeID, ast.archetype_id
+    end
+  end
+
+  must "adl-test-ENTRY.most_minimal.v1.adl be properly parsed" do
+    file =  File.read("#{TEST_ROOT_DIR}/adl/adl-test-ENTRY.most_minimal.v1.adl")
+    assert_nothing_raised do
+      ast = @parser.parse(file, 'adl-test-ENTRY.most_minimal.v1')
+      assert_instance_of OpenEhr::RM::Support::Identification::ArchetypeID, ast.archetype_id
+    end
+  end
+
+  must "adl-test-ENTRY.structure_test1.v1.adl be properly parsed" do
+    file =  File.read("#{TEST_ROOT_DIR}/adl/adl-test-ENTRY.structure_test1.v1.adl")
+    assert_nothing_raised do
+      ast = @parser.parse(file, 'adl-test-ENTRY.structure_test1.v1')
       assert_instance_of OpenEhr::RM::Support::Identification::ArchetypeID, ast.archetype_id
     end

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

@@ -28 +28 @@
 
 
-  must "test_adls should properly parsed" do
+#   must "test_adls should properly parsed" do
+#     assert_nothing_raised do
+#       @test_adls.each do |adl|
+#         puts "Processing #{adl}"
+#         open(adl) do |file|
+#           p "Processing #{file.gets}"
+#           case file.gets
+#           when "http://www.openehr.org/svn/knowledge/archetypes/dev/adl/test/basics/adl-test-ENTRY.basic_types_fail.v1.adl"
+#             assert_raise Racc::ParserError do 
+#               @parser.parse(file.read, adl)
+#             end
+#           else
+#             assert_nothing_raised { @parser.parse(file.read, adl) }
+#           end
+#         end
+#       end
+#     end
+#   end
+
+  must "ehr_adls should properly parsed" do
     assert_nothing_raised do
-      @test_adls.each do |adl|
+      @ehr_adls.each do |adl|
         puts "Processing #{adl}"
         open(adl) do |file|
-          @parser.parse(file.read, adl)
+          assert_nothing_raised do
+            @parser.parse(file.read, adl)
+          end
         end
       end
@@ -39 +60 @@
   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