One Hat Cyber Team

Your IP: 216.73.216.177
Server IP: 50.6.168.112
Server: Linux server-617809.webnetzimbabwe.com 5.14.0-570.25.1.el9_6.x86_64 #1 SMP PREEMPT_DYNAMIC Wed Jul 9 04:57:09 EDT 2025 x86_64
Server Software: Apache
PHP Version: 8.4.10
Buat File | Buat Folder

Dir : ~/home/.cpan/build/Test-Deep-1.204-0/t/

View File Name : cache.t

use strict;
use warnings;

use Test::More 0.88;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';

use Test::Deep::Cache;

{
  local $Test::Deep::Expects = 0;
  my $cache = Test::Deep::Cache->new;

  my $a = \"a";
  my $b = \"b";
  my $c = [];

  ok(! $cache->cmp($a, $b), "empty cache");

  $cache->add($a, $b);

  ok($cache->cmp($a, $b), "added");
  ok($cache->cmp($b, $a), "reverse");

  $cache->local;

  ok($cache->cmp($a, $b), "after local");

  $cache->add($b, $c);
  ok($cache->cmp($b, $c), "local added");
  $cache->finish(0);
  ok(! $cache->cmp($b, $c), "gone");

  $cache->local;

  $cache->add($b, $c);
  ok($cache->cmp($b, $c), "local added again");
  $cache->finish(1);
  ok($cache->cmp($b, $c), "still there");
}

done_testing;