[Logging-commits] r85 - oo/pkg/inst/unitTest

[noreply at r-forge.r-project.org]

Author: mariotomo
Date: 2011-08-02 16:36:09 +0200 (Tue, 02 Aug 2011)
New Revision: 85

Modified:
   oo/pkg/inst/unitTest/runit.data.interaction.R
Log:


Modified: oo/pkg/inst/unitTest/runit.data.interaction.R
===================================================================
--- oo/pkg/inst/unitTest/runit.data.interaction.R	2011-08-02 14:24:44 UTC (rev 84)
+++ oo/pkg/inst/unitTest/runit.data.interaction.R	2011-08-02 14:36:09 UTC (rev 85)
@@ -23,18 +23,26 @@
   checkEquals(expect, root$getLevel())
 }
 
-test.003.canUseGetLoggerOnRoot <- function() {
+test.003.sameNameMeansSameObject <- function() {
   basicConfig()
+  root1 <- Logger$new(name='abc')
+  root2 <- Logger$new(name="abc")
+  checkIdentical(root1, root2)
+}
+
+test.004.noNameMeansRoot <- function() {
+  basicConfig()
   root1 <- Logger$new(name='')
-  root2 <- getLogger()
-  checkEquals(root1, root2)
+  root2 <- Logger$new()
+  checkIdentical(root1, root2)
 }
 
-test.004.canUseGetLogger <- function() {
+test.005.canUseGetLogger <- function() {
+  library(logging)
   basicConfig()
   root1 <- Logger$new(name='abc')
   root2 <- getLogger("abc")
-  checkEquals(root1, root2)
+  checkIdentical(root1, root2)
 }
 
 # end of functions that must be tested first