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

use Perl6::Tidy;
use Test;

plan 2;

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

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

	done-testing;
};

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

	done-testing;
};

done-testing;

# vim: ft=perl6


