#!/usr/bin/perl

use Test::More tests => 2;
use_ok("Text::Ngrams");
require 't/auxfunctions.pl';

my $ng = Text::Ngrams->new(type=>'byte');
$ng->process_text(
'	The brown quick fox,
	brown fox,
	      brown fox ...
');

#putfile('t/04.out', normalize($ng->to_string('orderby' => 'ngram' )));
is(normalize(scalar(getfile('t/04.out'))),
   normalize($ng->to_string('orderby' => 'ngram' )));
