Skip to content
Browse files

Add revision field

  • Loading branch information...
1 parent c522ec1 commit 556cf14b28d4f97abb2054641390c0d0e9f27a9d @dboys dboys committed Sep 27, 2013
View
18 app-parrot-create
@@ -17,23 +17,27 @@ get '/' => 'index';
post '/' => sub {
my $self = shift;
- my ($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $archive_path);
+ my ($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $archive_path);
if (defined $self->param("hll")) {
- ($name, $builder, $harness, $with_pmc, $with_ops, $with_doc)
- = map { $self->param($_) } qw/hll_name hll_builder hll_test with_pmc with_ops with_doc/;
-
+ ($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc)
+ = map { $self->param($_) } qw/hll_name hll_builder hll_test
+ hll_parrot_revision with_pmc with_ops with_doc/;
+
my $hll = App::Parrot::Create::HLL->new();
- $hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $self->app->config->{hll_template});
+ $hll->init($name, $builder, $harness, $parrot_revision,
+ $with_pmc, $with_ops, $with_doc, $self->app->config->{hll_template});
if ($archive_path = $hll->generate()) {
$self->app->log->debug("The HLL created!");
}
}
elsif(defined $self->param("lib")){
- ($name, $builder, $harness) = map { $self->param($_) } qw/lib_name lib_builder lib_test/;
+ ($name, $builder, $harness, $parrot_revision)
+ = map { $self->param($_) } qw/lib_name lib_builder
+ lib_test lib_parrot_revision/;
my $library = App::Parrot::Create::Library->new();
- $library->init($name, $builder, $harness, $self->app->config->{library_template});
+ $library->init($name, $builder, $harness, $parrot_revision, $self->app->config->{library_template});
if ($archive_path = $library->generate()) {
$self->app->log->debug("The Library created!");
View
22 lib/App/Parrot/Create/Base.pm
@@ -13,8 +13,8 @@ use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
requires 'init';
has 'name' => (
- is => 'rw',
isa => 'Str',
+ is => 'rw',
required => 1,
predicate => 'has_name',
default => 'name'
@@ -36,6 +36,14 @@ has 'test_system' => (
default => 'Perl 5'
);
+has 'parrot_revision' => (
+ isa => 'Str',
+ is => 'rw',
+ required => 1,
+ predicate => 'has_parrot_revision',
+ default => '5.3.0'
+);
+
has 'archive_path' => (
isa => 'Str',
is => 'rw',
@@ -84,6 +92,7 @@ method generate_template($template_dir,$template_file) {
PIR => App::Parrot::Create::Type::PIR,
ROSELLA_WINXED => App::Parrot::Create::Type::ROSELLA_WINXED,
ROSELLA_NQP => App::Parrot::Create::Type::ROSELLA_NQP,
+ Revision => $self->parrot_revision,
object => $self,
};
@@ -221,6 +230,17 @@ __END__
if ($self->has_test_system){
...
}
+
+ parrot_revision - Minimum version of parrot vm.
+ It's a String type.
+
+ #set the parrot revision
+ $self->parrot_revision("5.3.0")
+
+ #check the parrot revision
+ if ($self->has_parrot_revision){
+ ...
+ }
=head1 FIELDS
View
6 lib/App/Parrot/Create/HLL.pm
@@ -30,10 +30,11 @@ has 'with_doc' => (
default => '0'
);
-method init($name, $build_system, $test_system, $with_pmc, $with_ops, $with_doc, $template) {
+method init($name, $build_system, $test_system, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) {
$self->name($name);
$self->build_system($build_system);
$self->test_system($test_system);
+ $self->parrot_revision($parrot_revision);
$self->with_pmc($with_pmc);
$self->with_ops($with_ops);
$self->with_doc($with_doc);
@@ -57,7 +58,7 @@ __END__
#simple using
my $hll = App::Parrot::Create::HLL->new();
- $hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+ $hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
#generate and return archive
$archive_path = $hll->generate();
@@ -109,6 +110,7 @@ __END__
$name,
$build_system,
$test_system,
+ $parrot_revision,
$with_pmc,
$with_ops,
$with_doc,
View
6 lib/App/Parrot/Create/Library.pm
@@ -5,10 +5,11 @@ use Method::Signatures;
with 'App::Parrot::Create::Base';
-method init($name, $build_system, $test_system, $template) {
+method init($name, $build_system, $test_system, $parrot_revision, $template) {
$self->name($name);
$self->build_system($build_system);
$self->test_system($test_system);
+ $self->parrot_revision($parrot_revision);
$self->template($template);
return 1;
@@ -30,7 +31,7 @@ __END__
#simple using
my $lib = App::Parrot::Create::Library->new();
- $lib->init($name, $builder, $harness, $template);
+ $lib->init($name, $builder, $harness, $parrot_revision, $template);
#generate and return archive
$archive_path = $lib->generate();
@@ -47,6 +48,7 @@ __END__
$name,
$build_system,
$test_system,
+ $parrot_revision,
$template;
=cut
View
2 project-templates/hll.parrot
@@ -598,7 +598,7 @@ object.
__PARROT_REVISION__
-Revision
+[% Revision %]
[% IF object.with_doc %]
__doc/[% object.name %].pod__
View
2 project-templates/library.parrot
@@ -503,7 +503,7 @@ Francois Perrad
__PARROT_REVISION__
-Revision
+[% Revision %]
__[% object.name %]/.ignore__
View
144 t/hll.t
@@ -8,130 +8,130 @@ use App::Parrot::Create::HLL;
ok(my $hll = App::Parrot::Create::HLL->new(),"Create HLL object");
-my ($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('a',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::PERL5,1,1,1,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+my ($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('a',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::PERL5, "5.3.0",1,1,1,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok(my $archive_path = $hll->generate(),"Winxed build + Perl 5 test with options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('ab',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::PERL5,0,0,0,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('ab',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::PERL5, "5.3.0",0,0,0,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"Winxed build + Perl 5 test without options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('abc', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::PERL5,1,1,1,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('abc', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::PERL5, "5.3.0",1,1,1,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"NQP build + Perl 5 test with options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('abcd', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::PERL5,0,0,0,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('abcd', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::PERL5, "5.3.0",0,0,0,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"NQP build + Perl 5 test without options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('abcde', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::PERL5,1,1,1,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('abcde', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::PERL5, "5.3.0",1,1,1,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"PIR build + Perl 5 test with options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('abcdef', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::PERL5,0,0,0,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('abcdef', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::PERL5, "5.3.0",0,0,0,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"PIR build + Perl 5 test without options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('abcdefg', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::PERL5,1,1,1,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('abcdefg', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::PERL5, "5.3.0",1,1,1,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"Perl 5 build + Perl 5 test with options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('abcdefgh', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::PERL5,0,0,0,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('abcdefgh', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::PERL5, "5.3.0",0,0,0,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"Perl 5 build + Perl 5 test without options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('b',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_WINXED,1,1,1,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('b',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0",1,1,1,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"Winxed build + Rosella(Winxed) test with options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('bc',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_WINXED,0,0,0,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('bc',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0",0,0,0,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"Winxed build + Rosella(Winxed) test without options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('bcd', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_WINXED,1,1,1,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('bcd', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0",1,1,1,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"NQP build + Rosella(Winxed) test with options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('bcde', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_WINXED,0,0,0,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('bcde', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0",0,0,0,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"NQP build + Rosella(Winxed) test without options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('bcdef', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_WINXED,1,1,1,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('bcdef', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0",1,1,1,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"PIR build + Rosella(Winxed) test with options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('bcdefg', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_WINXED,0,0,0,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('bcdefg', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0",0,0,0,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"PIR build + Rosella(Winxed) test without options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('bcdfgh', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_WINXED,1,1,1,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('bcdfgh', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0",1,1,1,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"Perl 5 build + Perl 5 test with options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('bcdfghk', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_WINXED,0,0,0,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('bcdfghk', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0",0,0,0,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"Perl 5 build + Perl 5 test without options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('c',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_NQP,1,1,1,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('c',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0",1,1,1,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"Winxed build + Rosella(Winxed) test with options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('cd',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_NQP,0,0,0,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('cd',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0",0,0,0,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"Winxed build + Rosella(Winxed) test without options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('cde', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_NQP,1,1,1,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('cde', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0",1,1,1,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"NQP build + Rosella(Winxed) test with options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('cdef', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_NQP,0,0,0,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('cdef', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0",0,0,0,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"NQP build + Rosella(Winxed) test without options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('cdefg', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_NQP,1,1,1,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('cdefg', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0",1,1,1,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"PIR build + Rosella(Winxed) test with options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('cdefgh', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_NQP,0,0,0,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('cdefgh', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0",0,0,0,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"PIR build + Rosella(Winxed) test without options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('cdefghk', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_NQP,1,1,1,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('cdefghk', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0",1,1,1,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"Perl 5 build + Perl 5 test with options");
-($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template) =
- ('cdefghkm', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_NQP,0,0,0,"project-templates/hll.parrot");
-$hll->init($name, $builder, $harness, $with_pmc, $with_ops, $with_doc, $template);
+($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template) =
+ ('cdefghkm', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0",0,0,0,"project-templates/hll.parrot");
+$hll->init($name, $builder, $harness, $parrot_revision, $with_pmc, $with_ops, $with_doc, $template);
ok($archive_path = $hll->generate(),"Perl 5 build + Perl 5 test without options");
done_testing();
View
144 t/library.t
@@ -8,130 +8,130 @@ use App::Parrot::Create::Library;
ok(my $library = App::Parrot::Create::Library->new(),"Create Library object");
-my ($name, $builder, $harness, $template) =
- ('a',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::PERL5,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+my ($name, $builder, $harness, $parrot_revision, $template) =
+ ('a',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::PERL5, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok(my $archive_path = $library->generate(),"Winxed build + Perl 5 test with options");
-($name, $builder, $harness, $template) =
- ('ab',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::PERL5,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('ab',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::PERL5, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"Winxed build + Perl 5 test without options");
-($name, $builder, $harness, $template) =
- ('abc', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::PERL5,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('abc', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::PERL5, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"NQP build + Perl 5 test with options");
-($name, $builder, $harness, $template) =
- ('abcd', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::PERL5,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('abcd', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::PERL5, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"NQP build + Perl 5 test without options");
-($name, $builder, $harness, $template) =
- ('abcde', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::PERL5,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('abcde', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::PERL5, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"PIR build + Perl 5 test with options");
-($name, $builder, $harness, $template) =
- ('abcdef', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::PERL5,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('abcdef', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::PERL5, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"PIR build + Perl 5 test without options");
-($name, $builder, $harness, $template) =
- ('abcdefg', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::PERL5,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('abcdefg', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::PERL5, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"Perl 5 build + Perl 5 test with options");
-($name, $builder, $harness, $template) =
- ('abcdefgh', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::PERL5,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('abcdefgh', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::PERL5, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"Perl 5 build + Perl 5 test without options");
-($name, $builder, $harness, $template) =
- ('b',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_WINXED,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('b',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"Winxed build + Rosella(Winxed) test with options");
-($name, $builder, $harness, $template) =
- ('bc',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_WINXED,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('bc',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"Winxed build + Rosella(Winxed) test without options");
-($name, $builder, $harness, $template) =
- ('bcd', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_WINXED,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('bcd', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"NQP build + Rosella(Winxed) test with options");
-($name, $builder, $harness, $template) =
- ('bcde', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_WINXED,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('bcde', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"NQP build + Rosella(Winxed) test without options");
-($name, $builder, $harness, $template) =
- ('bcdef', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_WINXED,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('bcdef', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"PIR build + Rosella(Winxed) test with options");
-($name, $builder, $harness, $template) =
- ('bcdefg', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_WINXED,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('bcdefg', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"PIR build + Rosella(Winxed) test without options");
-($name, $builder, $harness, $template) =
- ('bcdfgh', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_WINXED,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('bcdfgh', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"Perl 5 build + Perl 5 test with options");
-($name, $builder, $harness, $template) =
- ('bcdfghk', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_WINXED,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('bcdfghk', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_WINXED, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"Perl 5 build + Perl 5 test without options");
-($name, $builder, $harness, $template) =
- ('c',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_NQP,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('c',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"Winxed build + Rosella(Winxed) test with options");
-($name, $builder, $harness, $template) =
- ('cd',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_NQP,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('cd',App::Parrot::Create::Type::WINXED,App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"Winxed build + Rosella(Winxed) test without options");
-($name, $builder, $harness, $template) =
- ('cde', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_NQP,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('cde', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"NQP build + Rosella(Winxed) test with options");
-($name, $builder, $harness, $template) =
- ('cdef', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_NQP,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('cdef', App::Parrot::Create::Type::NQP, App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"NQP build + Rosella(Winxed) test without options");
-($name, $builder, $harness, $template) =
- ('cdefg', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_NQP,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('cdefg', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"PIR build + Rosella(Winxed) test with options");
-($name, $builder, $harness, $template) =
- ('cdefgh', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_NQP,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('cdefgh', App::Parrot::Create::Type::PIR, App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"PIR build + Rosella(Winxed) test without options");
-($name, $builder, $harness, $template) =
- ('cdefghk', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_NQP,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('cdefghk', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"Perl 5 build + Perl 5 test with options");
-($name, $builder, $harness, $template) =
- ('cdefghkm', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_NQP,"project-templates/library.parrot");
-$library->init($name, $builder, $harness, $template);
+($name, $builder, $harness, $parrot_revision, $template) =
+ ('cdefghkm', App::Parrot::Create::Type::PERL5, App::Parrot::Create::Type::ROSELLA_NQP, "5.3.0","project-templates/library.parrot");
+$library->init($name, $builder, $harness, $parrot_revision, $template);
ok($archive_path = $library->generate(),"Perl 5 build + Perl 5 test without options");
done_testing();
View
18 templates/index.html.ep
@@ -52,6 +52,15 @@
</select>
</div>
</div>
+
+ <div class="control-group">
+ <label class="control-label" for="lib_parrot_revision">Parrot Revision:</label>
+ <div class="controls">
+ <select name="lib_parrot_revision">
+ <option selected="true">5.3.0</option>
+ </select>
+ </div>
+ </div>
<div align="center">
<button class="btn btn-large btn-success" name="lib" id="lib_btn" disabled="disabled" type="submit">Download</button>
@@ -112,6 +121,15 @@
</select>
</div>
</div>
+
+ <div class="control-group">
+ <label class="control-label" for="hll_parrot_revision">Parrot Revision:</label>
+ <div class="controls">
+ <select name="hll_parrot_revision">
+ <option selected="true">5.3.0</option>
+ </select>
+ </div>
+ </div>
<div class="control-group">
<label class="control-label">Options:</label>

0 comments on commit 556cf14

Please sign in to comment.
Something went wrong with that request. Please try again.