renaming folder edit_wp5_web_folder to map-service

[geo.git] / map-service / geo / curves / inc / adodb5 / tests / test_rs_array.php

diff --git a/map-service/geo/curves/inc/adodb5/tests/test_rs_array.php b/map-service/geo/curves/inc/adodb5/tests/test_rs_array.php
new file mode 100644 (file)
index 0000000..1de37b2
--- /dev/null
+++ b/map-service/geo/curves/inc/adodb5/tests/test_rs_array.php
@@ -0,0 +1,47 @@
+<?php
+
+include_once('../adodb.inc.php');
+$rs = new ADORecordSet_array();
+
+$array = array(
+array ('Name', 'Age'),
+array ('John', '12'),
+array ('Jill', '8'),
+array ('Bill', '49')
+);
+
+$typearr = array('C','I');
+
+
+$rs->InitArray($array,$typearr);
+
+while (!$rs->EOF) {
+       print_r($rs->fields);echo "<br>";
+       $rs->MoveNext();
+}
+
+echo "<hr /> 1 Seek<br>";
+$rs->Move(1);
+while (!$rs->EOF) {
+       print_r($rs->fields);echo "<br>";
+       $rs->MoveNext();
+}
+
+echo "<hr /> 2 Seek<br>";
+$rs->Move(2);
+while (!$rs->EOF) {
+       print_r($rs->fields);echo "<br>";
+       $rs->MoveNext();
+}
+
+echo "<hr /> 3 Seek<br>";
+$rs->Move(3);
+while (!$rs->EOF) {
+       print_r($rs->fields);echo "<br>";
+       $rs->MoveNext();
+}
+
+
+
+die();
+?>
\ No newline at end of file