delete environment support added

dagolden · Aug 15, 2012 · ba9fd95 · ba9fd95
1 parent 0d199b6
commit ba9fd95
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 1 deletion.
diff --git a/lib/Pantry/App/Command/delete.pm b/lib/Pantry/App/Command/delete.pm
@@ -19,7 +19,7 @@ sub command_type {
 }
 
 sub valid_types {
-  return qw/node role/
+  return qw/node role environment/
 }
 
 sub options {
@@ -40,6 +40,11 @@ sub _delete_role {
   $self->_delete_obj($opt, "role", $name);
 }
 
+sub _delete_environment {
+  my ($self, $opt, $name) = @_;
+  $self->_delete_obj($opt, "environment", $name);
+}
+
 sub _delete_obj {
   my ($self, $opt, $type, $name) = @_;
 

diff --git a/t/app/delete.t b/t/app/delete.t
@@ -27,6 +27,12 @@ my @cases = (
     name => 'web',
     new => sub { my ($p,$n) = @_; $p->role($n) },
   },
+  {
+    label => "environment",
+    type => "environment",
+    name => 'test',
+    new => sub { my ($p,$n) = @_; $p->environment($n) },
+  },
 );
 
 local $ENV{PERL_MM_USE_DEFAULT} = 1;