t/indented-block.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#! /usr/bin/env perl6

use v6.c;

use String::Fold;
use Test;

my @result-lines = fold(slurp("t/files/input/indented-block.txt"), :indent(8)).lines;
my @expected-lines = slurp("t/files/output/indented-block.txt").trim-trailing.lines;

plan 1 + @expected-lines.elems;

is @result-lines.elems, @expected-lines.elems, "Expected number of lines";

for ^@expected-lines {
    is @result-lines[$_], @expected-lines[$_], "Line {$_ + 1} is the same";
}

# vim: ft=perl6 noet