# -*-perl-*-

use strict;
use Test::More 'no_plan';
use lib "$ENV{LJHOME}/cgi-bin";
require 'ljlib.pl';

my $u = LJ::load_user("system");

{
    my $c;

    $c = eval { LJ::get_cap(4, '_name') };
    is($c, 'early adopter', "Bitmask Lookup");

    $u->{caps} = 1 << LJ::class_bit('free');
    $c = eval { LJ::get_cap($u, '_key') };
    like($c, qr/free/, "User Object Lookup");

    $c = eval { LJ::get_cap('paid', '_key') };
    like($c, qr/paid/, "Cap Key Lookup");

}

1;