#!perl

# $Id: Lexer-crlf.t,v 1.6 2010/11/21 16:48:35 Paulo Exp $

use warnings;
use strict;

use Test::More;

use_ok	'CPU::Z80::Assembler';
use_ok	'Asm::Preproc::Stream';

require_ok 't/test_utils.pl';
our $stream;


#------------------------------------------------------------------------------
# test handling of \r in Unix and Win systems
#------------------------------------------------------------------------------
isa_ok	$stream = z80lexer(" 1 \r 2 \r\n 3 \n 4"),
		'Asm::Preproc::Stream';

test_token_line(	" 1 \r 2\n", 1, "-");
test_token(	"NUMBER",  	1);
test_token(	"NUMBER",  	2);
test_token(	"\n", 		"\n");

test_token_line(	" 3\n", 2, "-");
test_token(	"NUMBER",  	3);
test_token(	"\n", 		"\n");

test_token_line(	" 4\n", 3, "-");
test_token(	"NUMBER",  	4);
test_token(	"\n", 		"\n");

test_eof();

done_testing();