### ----------------------------------------------------
### -- Perl6::Tidy
### -- Licenses: Artistic-2.0
### -- Authors: Jeffrey Goff <drforr@pobox.com>
### -- File: t/01-core.t
### ----------------------------------------------------
use v6;

use Test;
use Perl6::Tidy;

plan 2;

subtest {
	my $pt = Perl6::Tidy.new;
	my $source = Q{1+2};
	my $parsed = $pt.tidy( $source );
	is $parsed, $source, Q{No alterations};

	done-testing;
}, Q{No alterations};

subtest {
	my $source = Q{1+2 # foo};

	subtest {
		my $pt = Perl6::Tidy.new;
		my $parsed = $pt.tidy( $source );
		is $parsed, $source, Q{No alterations};

		done-testing;
	}, Q{no alterations};

	subtest {
		plan 1;
		
		my $pt = Perl6::Tidy.new( :strip-comments( True ) );
		my $tidied = Q{1+2};
		my $parsed = $pt.tidy( $source );
		is $parsed, $tidied, Q{strip comments};
	}, Q{strip comments};
}, Q{Comment};

# vim: ft=perl6


