view release on metacpan or  search on metacpan

t/06-main-module.t  view on Meta::CPAN

    plan tests => 2;

    ok($Acme::Claude::Shell::VERSION, 'VERSION is defined');
    like($Acme::Claude::Shell::VERSION, qr/^\d+\.\d+$/, 'VERSION format is correct');
};

# Test _detect_color (internal function)
subtest 'Color detection' => sub {
    plan tests => 1;

    # This is tricky to test without a TTY, but we can at least verify
    # the function exists and returns a boolean
    my $result = Acme::Claude::Shell::_detect_color();
    ok(defined($result) && ($result == 0 || $result == 1), '_detect_color returns boolean');
};

done_testing();