Test::Kantan - simple, flexible, fun "Testing framework"

use Test::Kantan;

describe 'String', sub {
  describe 'index', sub {
    it 'should return -1 when the value is not matched', sub {
      expect(index("abc", 'x'))->to_be(-1);
      expect(index("abc", 'a'))->to_be(0);
    };
  };
};

done_testing;

Test::Kantan is a behavior-driven development framework for testing Perl 5 code. It has a clean, obvious syntax so that you can easily write tests.

Unstable. I will change the API without notice.

There is 3 types for describing test cases.

RSpec/Jasmine like BDD style function names are available.

describe 'String', sub {
  before_each { ... };
  describe 'index', sub {
    it 'should return -1 when the value is not matched', sub {
      expect(index("abc", 'x'))->to_be(-1);
      expect(index("abc", 'a'))->to_be(0);
    };
  };
};

done_testing;

There is the Given-When-Then style functions. It's really useful for describing real complex problems.

Scenario 'String', sub {
  setup { ... };

  Feature 'Get the index from the code', sub {
    Given 'the string';
    my $str = 'abc';

    When 'get the index for "a"';
    my $i = index($str, 'a');

    Then 'the return value is 0';
    expect($i)->to_be(0);
  };
};

done_testing;

subtest 'String', sub {
  setup { ... };

  subtest 'index', sub {
    expect(index("abc", 'x'))->to_be(-1);
    expect(index("abc", 'a'))->to_be(0);
  };
};

done_testing;

Here is 2 type assertions.

ok { 1 };

There is the ok function. It takes one code block. The code returns true value if the test case was passed, false otherwise.

ok() returns the value what returned by the code.

expect($x)->to_be_true;

Here is the expect function like RSpec/Jasmine. For more details, please look Test::Kantan::Expect.

You can show the diagnostic message with diag() function. Diagnostic message would not print if whole test cases in the subtest were passed.

It means, you can call diag() without worries about the messages is a obstacle.

The same as Test::Deep::NoTest's one. See also "ignore()" in Test::Deep

The same as "spy_on()" in Module::Spy

Skips all of the tests that are in the hereafter.

setup { do_something() };

setup blocks are run before each example setup blocks are run once before all of the examples in a group.

teardown { do_something() };

teardown blocks are run after each example teardown blocks are run once after all of the examples in a group.

Alias of setup().

Alias of teardown().

• KANTAN_REPORTER

  You can specify the reporter class by KANTAN_REPORTER environment variable.

    KANTAN_REPORTER=TAP perl -Ilib t/01_simple.t
  

• KANTAN_CUTOFF

  Kantan cut the diagnostic message by 80 bytes by default. If you want to change this value, you can set by KANTAN_CUTOFF.

    KANTAN_CUTOFF=10000 perl -Ilib t/01_simple.t
  

Log::Minimal outputs logs to STDERR by default.

$Log::Minimal::PRINT = sub {
    my ( $time, $type, $message, $trace,$raw_message) = @_;
    local $Test::Kantan::Level = $Test::Kantan::Level + 3;
    Test::Kantan::diag("$time [$type] $message at $trace", 1024);
};

Test::Kantan replace some methods in Test::Builder. You can use the library based on Test::Builder with Test::Kantan :)

Copyright (C) Tokuhiro Matsuno.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Tokuhiro Matsuno [email protected]

moznion

Kuniwak