[E-p-i-c-commits] org.epic.perleditor-test/workspace/EPICTest/lib TestCompletion.pm,NONE,1.1 TestPackage.pm,NONE,1.1 TestOpenSub.pm,NONE,1.1

[Jan P. <jp...@us...>]

Update of /cvsroot/e-p-i-c/org.epic.perleditor-test/workspace/EPICTest/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9928/workspace/EPICTest/lib

Added Files:
	TestCompletion.pm TestPackage.pm TestOpenSub.pm 
Log Message:
Tests updated to reflect changes committed to org.epic.perleditor.
New tests added for several features.

--- NEW FILE: TestCompletion.pm ---
package TestCompletion;

BEGIN
{
	use Exporter();
	use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
	@ISA = qw(Exporter);
	@EXPORT = qw(first_sub second_sub fourth_sub);
}

sub first_sub
{
}

sub second_sub
{
}

sub third_sub
{
}

sub fourth_sub
{
}

sub new
{
	my $class = shift;
	my $self;

	return bless($self, $class);
}

1;
--- NEW FILE: TestPackage.pm ---
sub main_sub
{
}

{
package First;

use Foo::Bar;
use Blah;

sub one
{
	print "one\n";
}

sub two
{
	print "two\n";
	
	package Third;
	
	sub six
	{
		print "six\n";
	}
	
	sub seven
	{
		print "seven\n";
	}
}

sub two2
{
}

package Second;

use Tra::Lala;

sub three
{
	print "three\n";
}

sub five
{
	print "FIVE\n";
}

sub four
{
	print "four\n";
	
	sub five
	{
		print "five\n";
	}
}
}

sub main_sub2
{
}

1;

__END__

sub after_eof
{
}
--- NEW FILE: TestOpenSub.pm ---
package TestOpenSub;

sub other_sub
{
	print "this is my 
		little sub!!!
			"; 				# comment
}

sub some_sub2
{
	print "some_sub";
	
}

sub some_sub #ok
{
	print "Hello, world!\n";
}

sub floobzik
{
}

1;