### ----------------------------------------------------
### -- Text::Fortune
### -- Licenses: Artistic-2.0
### -- Authors: zengargoyle
### -- File: t/01_empty.t
### ----------------------------------------------------
use Test;
plan *;

use Text::Fortune;
let $*CWD = 't/test_data';

my Buf $b = do { my $f = 'empty.dat'.IO; my $s = $f.s; $f.open(:bin).read($s); };
say $b;

given Text::Fortune::Index.new {
  is .version, 2, 'is version: 2';
  is .Buf, $b, 'matches empty.dat';
}

given Text::Fortune::Index.new(:rotated, delimiter => '@') {
  is .flags-to-int, 4, 'flags might work';
  is .delimiter, '@', 'can set delimiter';
  is .rotated, True, 'is rotated';
}

done-testing;

# vim: ft=perl6


