diff --git a/t/08_busy.t b/t/08_busy.t
index a776b0c..d225e14 100644
--- a/t/08_busy.t
+++ b/t/08_busy.t
@@ -50,7 +50,7 @@ foreach my $call_func (@CALL_FUNCS) {
 	};
 	ok($@);
 	if ($@) {
-	    print "# expected insert failure : $@";
+	    print "# expected insert failure : $@\n";
 	    $dbh2->rollback;
 	}
 
@@ -114,7 +114,7 @@ foreach my $call_func (@CALL_FUNCS) {
 	    eval { $dbh->do("INSERT INTO Blah VALUES (4, 'Test4' )") };
 	    ok !$@;
 	    if ($@) {
-	        print STDERR "# Your testing environment might be too slow to pass this test: $@";
+	        print STDERR "# Your testing environment might be too slow to pass this test: $@\n";
 	        $dbh->rollback;
 	    }
 	    else {
diff --git a/t/41_placeholders.t b/t/41_placeholders.t
index b772c01..c9102c2 100644
--- a/t/41_placeholders.t
+++ b/t/41_placeholders.t
@@ -30,9 +30,9 @@ eval {
     $sth->bind_param(':baz', "AAAAAAA");
 };
 ok $@, "binding unexisting named parameters returns error";
-print "# expected bind error: $@";
+print "# expected bind error: $@\n";
 ok $warn, "... and warning";
-print "# expected bind warning: $warn";
+print "# expected bind warning: $warn\n";
 $sth->execute;
 {
     my ($count) = $dbh->selectrow_array(
diff --git a/t/47_execute.t b/t/47_execute.t
index edd7b09..13b0e7a 100644
--- a/t/47_execute.t
+++ b/t/47_execute.t
@@ -62,7 +62,7 @@ foreach my $call_func (@CALL_FUNCS) {
 	};
 	ok($@);
 	if ($@) {
-	    print "# expected execute failure : $@";
+	    print "# expected execute failure : $@\n";
 	    $sth->finish;
 	    $dbh->rollback;
 	}