###
### $Release: 0.0100 $
### $Copyright: copyright(c) 2010-2011 kuwata-lab.com all rights reserved $
### $License: MIT License $
###

use strict;
use warnings;
no warnings 'void';   # suppress 'Useless use of ... in void context'

use Oktest;


topic "Misc", sub {

    spec "ex", sub {
        OK (1+1) == 2;
    };

    ## example of 'skip_when()'
    spec "some cool feature is available", sub {
        #my $on_windows = $^O =~ /MSWin/;
        my $on_windows = 1;
        skip_when $on_windows, "Windows not supported";
        OK (`echo Haruhi | md5`) eq 'd7f76bdf93d3f59fba678b204fc4faa1';
    };

    ## example of 'TODO()'
    spec "another cool feature is available", sub {
        TODO "not implemented yet.";
    };

    ## Tips: if spec body is not specified then it is regarded as TODO.
    ## For example, the following line is equivarent to above.
    spec "another cool feature is available";

};


Oktest::main() if $0 eq __FILE__;
1;
