Changeset 180:ca80a1c7f2ed

Timestamp:

04/24/2012 10:05:33 PM (13 months ago)

Author:

Andreas Schaefer <gentryx@…>

Branch:

default

Message:

fixed TypemapGenerator?'s unit tests

Location:

tools/typemapgenerator

Files:

• mpigenerator.rb (modified) (1 diff)
• mpiparser.rb (modified) (2 diffs)
• test/fixtures/references/generatemapengine.cpp (modified) (1 diff)
• test/fixtures/references/typemaps.cpp (modified) (3 diffs)
• test/fixtures/references/typemaps.h (modified) (3 diffs)
• test/unit/mpigeneratortest.rb (modified) (1 diff)
• test/unit/mpiparsertest.rb (modified) (3 diffs)

tools/typemapgenerator/mpigenerator.rb

@@ -58 +58 @@
     end
     member_specs = member_specs1 + member_specs2
-    ret.sub!(/ *MEMBERSPECS/, member_specs.join(",\n"))
+    ret.sub!(/ *MEMBERSPECS/, member_specs.sort.join(",\n"))
   end
 

tools/typemapgenerator/mpiparser.rb

@@ -64 +64 @@
   # it'll try to create a new MPI type map specification.
   def resolve_forest(classes)
-    classes = classes.dup
+    classes = classes.sort
     resolved_classes = { }
     resolved_parents = { }
@@ -128 +128 @@
     end
 
-    return params.uniq
+    return params.sort.uniq
   end
 

tools/typemapgenerator/test/fixtures/references/generatemapengine.cpp

@@ -9 +9 @@
     // sort addresses in ascending order
     MemberSpec rawSpecs[] = {
+        MemberSpec(MPI::Get_address(&obj->capacity), MPI::DOUBLE, 1),
         MemberSpec(MPI::Get_address(&obj->fuel), MPI::INT, 1),
-        MemberSpec(MPI::Get_address(&obj->gearRatios), MPI::DOUBLE, 6),
-        MemberSpec(MPI::Get_address(&obj->capacity), MPI::DOUBLE, 1)
+        MemberSpec(MPI::Get_address(&obj->gearRatios), MPI::DOUBLE, 6)
     };
     std::sort(rawSpecs, rawSpecs + count, addressLower);

tools/typemapgenerator/test/fixtures/references/typemaps.cpp

@@ -3 +3 @@
 
 namespace MPI \{
+    Datatype RIM;
     Datatype TIRE;
-    Datatype RIM;
     Datatype WHEEL;
 \}
@@ -28 +28 @@
 
 MPI\:\:Datatype
-Typemaps\:\:generateMapTire\(\) \{.*
+Typemaps\:\:generateMapRim\(\) \{.*
 \}
 
 MPI\:\:Datatype
-Typemaps\:\:generateMapRim\(\) \{.*
+Typemaps\:\:generateMapTire\(\) \{.*
 \}
 
@@ -41 +41 @@
 void Typemaps\:\:initializeMaps\(\)
 \{
+    MPI\:\:RIM = generateMapRim\(\);
     MPI\:\:TIRE = generateMapTire\(\);
-    MPI\:\:RIM = generateMapRim\(\);
     MPI\:\:WHEEL = generateMapWheel\(\);
 \}

tools/typemapgenerator/test/fixtures/references/typemaps.h

@@ -4 +4 @@
 #include <complex>
 #include <mpi.h>
-#include "/home/gentryx/typemapgenerator/trunk/test/fixtures/src/tire.h"
-#include "/home/gentryx/typemapgenerator/trunk/test/fixtures/src/rim.h"
-#include "/home/gentryx/typemapgenerator/trunk/test/fixtures/src/wheel.h"
+#include <rim.h>
+#include <tire.h>
+#include <wheel.h>
 
 namespace MPI {
+    extern Datatype RIM;
     extern Datatype TIRE;
-    extern Datatype RIM;
     extern Datatype WHEEL;
 }
@@ -24 +24 @@
 
 private:
+    static MPI::Datatype generateMapRim();
     static MPI::Datatype generateMapTire();
-    static MPI::Datatype generateMapRim();
     static MPI::Datatype generateMapWheel();
 
@@ -47 +47 @@
     static inline MPI::Datatype lookup(unsigned short*) { return MPI::UNSIGNED_SHORT; }
     static inline MPI::Datatype lookup(wchar_t*) { return MPI::WCHAR; }
+    static inline MPI::Datatype lookup(Rim*) { return MPI::RIM; }
     static inline MPI::Datatype lookup(Tire*) { return MPI::TIRE; }
-    static inline MPI::Datatype lookup(Rim*) { return MPI::RIM; }
     static inline MPI::Datatype lookup(Wheel*) { return MPI::WHEEL; }
 };

tools/typemapgenerator/test/unit/mpigeneratortest.rb

@@ -46 +46 @@
                                                @headers)
     # avoid comparing absolute pathnames (beneficial as the tests have to run in various locations)
-    expected_header.gsub!(/(#include ").*\/(\w+\.h")/) { |m| $1+$2 }
-    actual_header.gsub!(  /(#include ").*\/(\w+\.h")/) { |m| $1+$2 }
+    expected_header.gsub!(/(#include <).*\/(\w+\.h>)/) { |m| $1+$2 }
+    actual_header.gsub!(  /(#include <).*\/(\w+\.h>)/) { |m| $1+$2 }
+
     assert_equal(expected_header, actual_header)
   end

tools/typemapgenerator/test/unit/mpiparsertest.rb

@@ -146 +146 @@
 
   def test_used_template_parameters
-    expected = [["int", "int"], ["int", "double"], 
-                ["Coord<3 >", "Coord<2 >"]]
+    expected = [["Coord<3 >", "Coord<2 >"],
+                ["int", "double"],
+                ["int", "int"]]
     assert_equal(expected, @parser.used_template_parameters("CoordPair"))
 
@@ -367 +368 @@
     }
 
-    expected_sortation = %w{Rim Engine Tire Wheel Car}
+    expected_sortation = %w{Engine Tire Rim Wheel Car}
 
     expected_headers = 
-      ["fixtures/src/rim.h",
-       "fixtures/src/engine.h",
+      ["fixtures/src/engine.h",
        "fixtures/src/tire.h",
+       "fixtures/src/rim.h",
        "fixtures/src/wheel.h",
        "fixtures/src/car.h"]
@@ -426 +427 @@
     resolved_classes = @parser.resolve_forest(classes)[0]
     
-
-    assert_equal(%w(wheels), 
-                 resolved_classes["Car"].keys)
-    assert_equal(%w(size spareWheel), resolved_classes["CarContainer"].keys)
+    assert_equal(%w(wheels), resolved_classes["Car"].keys)
+    assert_equal(%w(size spareWheel), resolved_classes["CarContainer"].keys.sort)
   end