#!/usr/bin/perl

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

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

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