cvs: pear /MDB2/tests MDB2_usage_testcase.php

lsmith Fri Oct 20 15:58:36 2006 UTC Modified files: /pear/MDB2/tests MDB2_usage_testcase.php Log: - add test for lastInsertID() (fails on sqlite, mysql and oracle atm) http://cvs.php.net/viewvc.cgi/pear/MDB2/tests/MDB2_usage_testcase.php?r1=1.91&r2=1.92&diff_format=u Index: pear/MDB2/tests/MDB2_usage_testcase.php diff -u pear/MDB2/tests/MDB2_usage_testcase.php:1.91 pear/MDB2/tests/MDB2_usage_testcase.php:1.92 --- pear/MDB2/tests/MDB2_usage_testcase.php:1.91 Sat Oct 14 13:38:01 2006 +++ pear/MDB2/tests/MDB2_usage_testcase.php Fri Oct 20 15:58:36 2006 @@ -41,7 +41,7 @@ // | Author: Paul Cooper <pgc@ucecom.com> | // +----------------------------------------------------------------------+ // -// $Id: MDB2_usage_testcase.php,v 1.91 2006/10/14 13:38:01 lsmith Exp $ +// $Id: MDB2_usage_testcase.php,v 1.92 2006/10/20 15:58:36 lsmith Exp $ require_once 'MDB2_testcase.php'; @@ -758,6 +758,27 @@ if (PEAR::isError($result)) { $this->assertTrue(false, "Error dropping sequence $sequence_name : ".$result->getMessage()); } + + // Test lastInsertid() + $sequence_name = 'test_lastinsertid'; + $dsn = MDB2::parseDSN($this->dsn); + $dsn['new_link'] = true; + $dsn['database'] = $this->database; + $db =& MDB2::connect($dsn, $this->options); + + $next = $this->db->nextId($sequence_name); + $db->nextId($sequence_name); + $last = $this->db->lastInsertId($sequence_name); + + if (PEAR::isError($last)) { + $this->assertTrue(false, "Error getting the last value of sequence $sequence_name : ".$last->getMessage()); + } else { + $this->assertEquals($next, $last, "return value if lastInsertId() does not match the previous call to nextId()"); + } + $result = $this->db->manager->dropSequence($sequence_name); + if (PEAR::isError($result)) { + $this->assertTrue(false, "Error dropping sequence $sequence_name : ".$result->getMessage()); + } } /**