SlatePermutate Changeset - af2373233b2e · protofusion repositories

Changeset - af2373233b2e

Parent rev.

Child rev.

[Not reviewed]

default

0 1 0

Nathan Brink (binki) - 14 years ago 2012-02-15 08:53:02
ohnobinki@ohnopublishing.net

Add some unitish tests for school_crawl_csv_parse().

1 file changed with 42 insertions and 4 deletions:

inc/admin.inc

0 comments (0 inline, 0 general)

inc/admin.inc

➞

Show inline comments

@@ @@ -473,85 +473,123 @@ function test() @@
   $t1 = 'CS-262-A';
   $n += assert_equal($t1, Section::parse($t1), $ideal);
   $n += assert_equal($t1 . '_class', Course::parse($t1), $ideal_c);
   $t2 = 'cs262 a';
   $n += assert_equal($t2, Section::parse($t2), $ideal);
   $n += assert_equal($t2 . '_class', Course::parse($t2), $ideal_c);
   $t3 = 'cs 262 a';
   $n += assert_equal($t3, Section::parse($t2), $ideal);
   $n += assert_equal($t3 . '_class', Course::parse($t3), $ideal_c);
   $ideal['course'] .= 'L';
   $ideal_c['course'] = $ideal['course'];
   $t1 = 'CS-262L-A';
   $n += assert_equal($t1, Section::parse($t1), $ideal);
   $n += assert_equal($t1 . '_class', Course::parse($t1), $ideal_c);
   $t2 = 'cs262l a';
   $n += assert_equal($t2, Section::parse($t2), $ideal);
   $n += assert_equal($t2 . '_class', Course::parse($t2), $ideal_c);
   $t3 = 'cs 262l a';
   $n += assert_equal($t3, Section::parse($t2), $ideal);
   $n += assert_equal($t3 . '_class', Course::parse($t3), $ideal_c);
   $csv = '1,2,3,4
 ,2 ,3,4
 ,"2,",3,4
 "1
 ",2,3,4
 """1""",2,3,4
 ';
   $csv_parsed = array(
     array('1', '2', '3', '4'),
     array('1', '2 ', '3', '4'),
     array('1', '2,', '3', '4'),
     array("1\n1", '2', '3', '4'),
     array('"1"', '2', '3', '4'),
     array(''),
     array('4'),
   );
   $n += assert_equal('csv', school_crawl_csv_parse($csv, array('eof' => TRUE)), $csv_parsed);
   $n += assert_equal('csv_buffer', $csv, '');
   $csv_partial = '1,2
 ';
   /*
    * Check partial parsing support; give a situation where we
    * supposedly don't have eof.
    */
   $n += assert_equal('csv_partial', school_crawl_csv_parse($csv_partial), array(array('1', '2')));
   $n += assert_equal('csv_partial_buffer', $csv_partial, '3');
   return $n;
+}
 /**
  * \brief
  *   A reimplementation of a standard testsuite utility.
+ *
  * \return
  *   TRUE if the test failed.
  */
 function assert_equal($name, $a, $b)
+{
   if (is_array($a))
+    {
       $bad = FALSE;
       if (!is_array($b))
+	{
 	  fprintf(STDERR, "Test ``%s'' failed: \$a is an array while \$b isn't.\n",
 		  $name);
 	  return TRUE;
+	}
       foreach ($a as $key => $val)
 	if (!$bad && isset($b[$key]))
 	  $bad = assert_equal($name . '[' . $key . ']', $a[$key], $b[$key]);
 	else
         elseif (!$bad)
+	  {
 	  $bad = TRUE;
 	    fprintf(STDERR, "\$b is missing key ``%s'' which \$a has.\n",
 		    $key);
+	  }
       foreach ($b as $key => $val)
 	if (!$bad && isset($a[$key]))
 	  $bad = assert_equal($name . '[' . $key . ']', $a[$key], $b[$key]);
 	else
 	  elseif (!$bad)
+	    {
 	  $bad = TRUE;
 	      fprintf(STDERR, "\$a is missing key ``%s'' which \$b has.\n",
 		      $key);
+	    }
       if ($bad)
+	{
 	  fprintf(STDERR, "Test ``%s'' failed, see previous error message\n",
 		  $name);
 	  return TRUE;
+	}
       return FALSE;
+    }
   elseif (is_array($b))
+    {
       fprintf(STDERR, "Test ``%s'' failed: \$b is an array; \$a isn't.\n",
 	      $name);
       return TRUE;
+    }
   elseif ($a === $b
 	  && !strcmp($a, $b))
+    {
       return FALSE;
+    }
   else
+    {
       fprintf(STDERR, "Test ``%s'' failed: `%s' !== `%s', strcmp() == %d\n",
 	      $name, $a, $b, strcmp($a, $b));
       fprintf(STDERR, "Test ``%s'' failed: `%s' === `%s' => %s, strcmp() == %d\n",
 	      $name, $a, $b, $a === $b ? 'TRUE' : 'FALSE', strcmp($a, $b));
       return TRUE;
+    }
   return TRUE;
+}

0 comments (0 inline, 0 general)