Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Tweak a few things to make test work

  • Loading branch information...
commit e7f6ebafa8b9357273ddc3d7447ada301161c02d 1 parent b48fad9
@flussence authored
Showing with 8 additions and 5 deletions.
  1. +1 −1  lib/XMMS2/Connection.pm6
  2. +7 −4 t/tutorial-stuff.t
View
2  lib/XMMS2/Connection.pm6
@@ -60,7 +60,7 @@ class XMMS2::Connection is repr('CPointer') {
#= A NULL instead of a string makes the lib pick a sane default
xmmsc_connect($connection, $path // %*ENV<XMMS_PATH> // Str)
- or die xmmsc_get_last_error($connection)\
+ or fail xmmsc_get_last_error($connection)\
.fmt(qq{Connecting via "$path" failed with error: %s});
return $connection;
View
11 t/tutorial-stuff.t
@@ -5,18 +5,21 @@ use XMMS2::Connection;
# Perform all the actions in xmms2-tutorial/c/. We use the raw XMMS2::Connection
# here, XMMS2::Client is tested in actions.t.
-unless %*ENV<RUN_TEST> {
- warn 'This test will interfere with your audio; set RUN_TEST to run it';
- skip_rest("\%*ENV<RUN_TEST> required for this test");
+unless %*ENV<XMMS_PATH> {
+ warn 'Set XMMS_PATH if you really want to run this, it\'ll mess with your playback';
+ skip_rest("\%*ENV<XMMS_PATH> required for this test");
exit 1;
}
my XMMS2::Connection $xmms2;
-unless lives_ok { $xmms2 .= open(:client-name<perl6xmms2test>) }, 'Connect to xmms2' {
+unless lives_ok { $xmms2 .= open('perl6xmms2test') }, 'Connect to xmms2' {
skip_rest("Couldn't connect");
exit 1;
}
# tut1.c
ok(?$xmms2.playback_start, 'Start playback');
+
+
+done;
Please sign in to comment.
Something went wrong with that request. Please try again.