Show
Ignore:
Timestamp:
07/07/08 10:58:04 (6 years ago)
Author:
lieutar
Message:

I added some changes according to advices.

Location:
lang/perl/Class-Logic/trunk
Files:
2 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/Class-Logic/trunk

    • Property svn:ignore
      •  

        old new  
         1inc 
        12Makefile 
        23Makefile.old 
  • lang/perl/Class-Logic/trunk/t/11-module.t

    r15320 r15340  
    33use warnings; 
    44package t; 
    5 use Calc::Logic; 
     5use Class::Logic; 
    66use Test::More tests => 22; 
    77use Scalar::Util qw( blessed ); 
     
    2626BEGIN { 
    2727  package Mod00; 
    28   use Calc::Logic -define; 
     28  use Class::Logic -define; 
    2929  rule default 
    3030    => or  => { true  => 'true', 
     
    3939 
    4040  package Mod01; 
    41   use Calc::Logic -define; 
     41  use Class::Logic -define; 
    4242  rule null => bool => 0; 
    4343  default     'null'; 
     
    4949  t::ok( __PACKAGE__->can($_) ) 
    5050      foreach qw( NOT OR AND XOR NAND NOR default true false ); 
    51   t::ispkg(     default , 'Calc::Logic::Symbol' ); 
    52   t::ispkg(     true    , 'Calc::Logic::Symbol' ); 
    53   t::ispkg(     false   , 'Calc::Logic::Symbol' ); 
     51  t::ispkg(     default , 'Class::Logic::Symbol' ); 
     52  t::ispkg(     true    , 'Class::Logic::Symbol' ); 
     53  t::ispkg(     false   , 'Class::Logic::Symbol' ); 
    5454  t::ok( OR(    true    , false ) , "or true false"); 
    5555  t::ok( OR(    false   , true  ) , "or false true" );