package MyTest;
use warnings;
use base q{Test::Class};
use Test::More 'no_plan';

sub DEMO_1 : Tests 
{
    my $self = shift;
    $self->builder->skip('Wanting to skip the DEMO_1 tests');
    my $results = {
        '1 / 2' => "0.5",
        '1 / 4' =>  0.25,
    };
    _verify($results);
}

sub DEMO_2 : Tests 
{
    my $results = {
        '1 / 8' => "0.125",
        '1 / 16' =>  0.0625,
    };
    _verify($results);
}

Test::Class->runtests;

sub _verify {
    my $results = shift;
    for(keys(%$results)) {
       ok( eval($_) == $results->{$_}, "$_ == $results->{$_}");
    }
}

##</code><code>##

ok 1 # skip Wanting to skip the DEMO_1 tests
ok 2 - 1 / 4 == 0.25
ok 3 - 1 / 2 == 0.5
ok 4 - 1 / 8 == 0.125
ok 5 - 1 / 16 == 0.0625
1..5