The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
JACQUESG / Git-Raw-0.79 / t / 32-rebase_operation.t 
#!perl

use Test::More;

use Git::Raw;

is 0, Git::Raw::Rebase::Operation -> PICK;
is 1, Git::Raw::Rebase::Operation -> REWORD;
is 2, Git::Raw::Rebase::Operation -> EDIT;
is 3, Git::Raw::Rebase::Operation -> SQUASH;
is 4, Git::Raw::Rebase::Operation -> FIXUP;
is 5, Git::Raw::Rebase::Operation -> EXEC;

done_testing;