#!perl

use utf8;

use strict;
use warnings;

[
    {
        description => "counter",
        autoflush   => 1,
        input       => [ [qw/ counter beans 5 /], ],
        output      => "test.beans:5|c\n",
    },
    {
        description => "counter (negative)",
        autoflush   => 1,
        input       => [ [qw/ counter beans -25 /], ],
        output      => "test.beans:-25|c\n",
    },
    {
        description => "increment",
        autoflush   => 1,
        input       => [ [qw/ increment beans /], ],
        output      => "test.beans:1|c\n",
    },
    {
        description => "decrement",
        autoflush   => 1,
        input       => [ [qw/ decrement beans /], ],
        output      => "test.beans:-1|c\n",
    },

    {
        description => "counter with rate",
        autoflush   => 1,
        input       => [ [qw/ counter beans 5 0.5 /], ],
        output      => "test.beans:5|c|\@0.5\n",
    },
    {
        description => "counter (negative) with rate",
        autoflush   => 1,
        input       => [ [qw/ counter beans -25 0.1 /], ],
        output      => "test.beans:-25|c|\@0.1\n",
    },
    {
        description => "increment with rate",
        autoflush   => 1,
        input       => [ [qw/ increment beans .123456 /], ],
        output      => "test.beans:1|c|\@0.123456\n",
    },
    {
        description => "decrement with rate",
        autoflush   => 1,
        input       => [ [qw/ decrement beans 1 /], ],
        output      => "test.beans:-1|c\n",
    },

    {
        description => "update (alias for counter)",
        autoflush   => 1,
        input       => [ [qw/ update beans 14 /], ],
        output      => "test.beans:14|c\n",
    },

     {
        description => "counter (utf8)",
        autoflush   => 1,
        input       => [ [qw/ counter beäns 16 /], ],
        output      => "test.beäns:16|c\n",
    },

]