File Coverage

test/test_get.pl

Criterion	Covered	Total	%
statement	15	15	100.0
branch	7	14	50.0
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	24	31	77.4

#!/usr/bin/perl -w

use strict;
use IPC::Cache;

my $sUSAGE = "Usage: test_get.pl cache_key namespace key expected_value";

my $cache_key = $ARGV[0] or
    die("$sUSAGE\n");

my $namespace = $ARGV[1] or
    die("$sUSAGE\n");

my $key = $ARGV[2] or
    die("sUSAGE\n");

my $expected_value = $ARGV[3] or
    die("sUSAGE\n");

my $cache = new IPC::Cache( { cache_key => $cache_key, namespace => $namespace } ) or
    die("Couldn't create cache");

my $value = $cache->get($key) or
    die("Couldn't get object at $key");

$value eq $expected_value or
    die("value $value not equal to $expected_value");

exit(0);