[WebUI IntelliHome#7] Modified test sqlite

t/6-sqlite_backend.t

@@ -4,6 +4,7 @@ use IntelliHome::Parser::DB::SQLite;
 use File::Path qw(make_path remove_tree);
 use_ok("IntelliHome::Deployer::Schema::SQLite");
 use_ok("DBD::SQLite");
+
 #CLEANING
 unlink("/tmp/intellihome.db");
 remove_tree("/tmp/db_upgrades");
@@ -109,37 +110,77 @@ $schema->DESTROY();
 my $Backend = IntelliHome::Parser::DB::SQLite->new(
     dsn => 'dbi:SQLite:/tmp/intellihome.db' );
 
-
 ###### TESTING BACKEND DB CONSISTENCY
 is( ( $Backend->get_all_rooms )[0]->{name},
     "bedroom", "Getting first room name" );
 
-is( scalar( $Backend->get_all_rooms),
-    1, "One room" );
+is( scalar( $Backend->get_all_rooms ), 1, "One room" );
 is( ( $Backend->search_room("bed") )[0]->name,
     "bedroom", "Searching room name" );
-is( ( $Backend->get_all_gpio() )[0]->type,
-    3, "Get first gpio type" );
-is( ( $Backend->get_all_gpio() )[1]->type,
-    1, "Get second gpio type" );
-is( ( $Backend->get_all_gpio() )[1]->value,
-    1, "Get second gpio value" );
-is( scalar( $Backend->get_all_gpio),
-    2, "Two GPIOs" );
+is( ( $Backend->get_all_gpio() )[0]->type,  3, "Get first gpio type" );
+is( ( $Backend->get_all_gpio() )[1]->type,  1, "Get second gpio type" );
+is( ( $Backend->get_all_gpio() )[1]->value, 1, "Get second gpio value" );
+is( scalar( $Backend->get_all_gpio ), 2, "Two GPIOs" );
 is( ( $Backend->get_all_gpio_data() )[0]->{title},
     "serranda 1", "Get first gpio title (first tag)" );
 is( ( $Backend->get_all_gpio_data() )[0]->{toggle},
-   1, "Get first gpio toggle" );
+    1, "Get first gpio toggle" );
 is( ( $Backend->get_all_nodes() )[0]->{type},
-   "master", "Get first node type" );
-is( $Backend->delete_element("Node",$node_one->nodeid),
-   1, "Deleting Node 1 ok" );
-###### TESTING BACKEND DB CONSISTENCY
+    "master", "Get first node type" );
+is( $Backend->delete_element( "Node", $node_one->nodeid ),
+    1, "Deleting Node 1 ok" );
+
+my $new_gpio = $Backend->add_gpio(
+    {   'pin_id' => '22',
+        'type'   => '1',
+        'driver' => 'IntelliHome::Driver::GPIO::Mono'
+    },
+    { id => 1 }
+);
+my $new_room = $Backend->add_room(
+        {   name     => "test",
+            location => "bedroom first floor"
+        }
+        );
+is( $new_gpio->value, 0, "Adding 1 gpio to first node" );
+is( $new_room->name,
+    "test",
+    "Adding a room"
+);
 
+is( $Backend->add_tag( { tag => "test" }, { id => $new_gpio->gpioid } )->tag,
+    "test",
+    "Adding a tag to the previous created gpio"
+);
 
+is( $Backend->add_pin(
+        {   pin   => 44,
+            type  => 4,
+            value => 0
+        },
+        { id => $new_gpio->gpioid }
+        )->pin,
+    44,
+    "Adding a new pin to the previous created gpio"
+);
 
+is( $Backend->addNode(
+        {   host=>"test",
+            port=> 42,
+            type=>"agent",
+            name=>"Big tought",
+            username=>"arthur",
+            password=>"dent"
+        },
+        {name => $new_room->name, id=>$new_room->id }
+        )->type,
+    "agent",
+    "Adding a new node to the previous created room"
+);
+
+###### TESTING BACKEND DB CONSISTENCY
 
 #CLEANING
 unlink("/tmp/intellihome.db");
 remove_tree("/tmp/db_upgrades");
-done_testing;
+done_testing;