From f6a5e7589396854e10e023c25237b47e512ff047 Mon Sep 17 00:00:00 2001
From: wei <>
Date: Fri, 14 Apr 2006 11:23:56 +0000
Subject: Adding SQLMap unit tests. Allow sqlmap to use Prado's caching module
 to cache records.

---
 tests/unit/SQLMap/SqlMapCacheTest.php | 77 +++++++++++++++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 tests/unit/SQLMap/SqlMapCacheTest.php

(limited to 'tests/unit/SQLMap/SqlMapCacheTest.php')

diff --git a/tests/unit/SQLMap/SqlMapCacheTest.php b/tests/unit/SQLMap/SqlMapCacheTest.php
new file mode 100644
index 00000000..a2593e1a
--- /dev/null
+++ b/tests/unit/SQLMap/SqlMapCacheTest.php
@@ -0,0 +1,77 @@
+<?php
+
+require_once(dirname(__FILE__).'/BaseTest.php');
+
+/**
+ * @package System.DataAccess.SQLMap
+ */
+class SqlMapCacheTest extends PHPUnit2_Framework_TestCase
+{
+	function testFIFOCache()
+	{
+		$fifo = new TSqlMapFifoCache(2);
+		$object1 = new TSqlMapper;
+		$object2 = new TComponent;
+		$object3 = new TMapper;
+		
+		$key1 = 'key1';
+		$key2 = 'key2';
+		$key3 = 'key3';
+
+		$fifo->set($key1, $object1);
+		$fifo->set($key2, $object2);
+		
+		$this->assertTrue($object1 === $fifo->get($key1));
+		$this->assertTrue($object2 === $fifo->get($key2));
+
+		//object 1 should be removed
+		$fifo->set($key3, $object3);
+
+		$this->assertNull($fifo->get($key1));
+		$this->assertTrue($object2 === $fifo->get($key2));
+		$this->assertTrue($object3 === $fifo->get($key3));
+
+		//object 2 should be removed
+		$fifo->set($key1, $object1);
+
+		$this->assertNull($fifo->get($key2));
+		$this->assertTrue($object3 === $fifo->get($key3));
+		$this->assertTrue($object1 === $fifo->get($key1));
+	}
+
+	function testLruCache()
+	{
+		$lru = new TSqlMapLruCache(2);
+
+		$object1 = new TSqlMapper;
+		$object2 = new TComponent;
+		$object3 = new TMapper;
+		
+		$key1 = 'key1';
+		$key2 = 'key2';
+		$key3 = 'key3';
+
+		$lru->set($key1, $object1);
+		$lru->set($key2, $object2);
+
+		$this->assertTrue($object2 === $lru->get($key2));
+		$this->assertTrue($object1 === $lru->get($key1));
+		
+		//object 2 should be removed, i.e. least recently used
+		$lru->set($key3, $object3);
+		
+		$this->assertNull($lru->get($key2));
+		$this->assertTrue($object1 === $lru->get($key1));
+		$this->assertTrue($object3 === $lru->get($key3));
+
+		//object 1 will be removed
+		$lru->set($key2, $object2);
+
+		$this->assertNull($lru->get($key1));
+		$this->assertTrue($object2 === $lru->get($key2));
+		$this->assertTrue($object3 === $lru->get($key3));
+	}
+}
+
+
+?>
\ No newline at end of file
-- 
cgit v1.2.3