Changeset 22815

Timestamp:

09/09/10 10:23:54 (17 months ago)

Author:

alex

Message:

CI prior to merging

File:

• branches/mnw21/pathquery_refactor/intermine/perl/t/10_acceptance/01_live_test.t (modified) (5 diffs)

branches/mnw21/pathquery_refactor/intermine/perl/t/10_acceptance/01_live_test.t

@@ -7 +7 @@
 
 my $url = 'localhost:8080/intermine-test/service';
+#my $url = 'web2:8080/new-pathquery/service';
 my @view = ('Employee.name', 'Employee.age', 'Employee.fullTime',
         'Employee.address.address', 'Employee.department.name',
@@ -93 +94 @@
 my $res;
 
+$q = $module->new_query;
+$q->add_view(@view);
+
+#diag($q2->url, "=>\n" , $q2->results(as => 'string'));
+
 lives_ok(
     sub {$res = $q->results},
     "Queries for results",
-) or diag($q->url);;
+) or diag($q->url);
 
 is(ref $res, 'ARRAY', "And it is an arrayref");
@@ -102 +108 @@
 is(ref $res->[0], 'ARRAY', "An array of arrays in fact");
 
-is($res->[1][3], "Chédin S", "With the right fields");
+is($res->[1][1], "20", "With the right fields - Int") or diag(explain $res);;
+is($res->[1][3], "Employee Street, AVille", "With the right fields - Str") or diag(explain $res);;
+
+$q->add_constraint(
+    path  => 'Employee.age',
+    op    => '<',
+    value => 35,
+);
 
 lives_ok(
@@ -109 +122 @@
 );
 
-is($res->[1]->{'Employee.address.address'}, "Chédin S", "with the right fields");
+is(@$res, 3, "Gets the right number of records");
+is($res->[1]->{'Employee.age'}, "20", "with the right fields - Int");
+is($res->[1]->{'Employee.address.address'}, "Employee Street, AVille", "with the right fields - Str");
 
 my $t;
@@ -122 +137 @@
 
 lives_ok(
-    sub {$res = $t->results_with(valueA => 'foo');},
+    sub {$res = $t->results_with(valueA => 10);},
     "Runs results with ok",
-);
+) or diag($t->url);
 
-is($res->[1][3], "Chédin S", "With the right fields");
+is($res->[1][3], "Chédin S", "With the right fields")
+    or diag($t->url, explain $res), diag $t->show_constraints;
 
-is($t->results->[1][3],  "Chédin S", "And ditto for results");
+#is($t->results->[1][3],  "Chédin S", "And ditto for results") or diag($t->url, explain $res);