Microsoft (R) Program Maintenance Utility Version 7.00.8882 Copyright (C) Microsoft Corp 1988-2000. All rights reserved. C:\cpanrun-5.8\build\5-8-0\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t\midi.t t\midiin.t t\midiout.t t\midistream.t t\sysex.t t\midi..........1..9 ok 1 ok 2 ok 3 ok 4 ok 5 MIDI Out Dev: -1 $VAR1 = \{}; ok 6 ok 7 ok 8 ok 9 ok t\midiin........1..18 ok 1 ok 2 ok 3 midiin.t: Try `C:\cpanrun-5.8\build\5-8-0\bin\perl.exe -Mblib t/midiin.t -i', if you have MIDI input device. ok 4 ok 5 # skip skip, run with -i option ok 6 # skip skip, run with -i option ok 7 # skip skip, run with -i option ok 8 # skip skip, run with -i option ok 9 # skip skip, run with -i option ok 10 # skip skip, run with -i option ok 11 # skip skip, run with -i option ok 12 # skip skip, run with -i option ok 13 # skip skip, run with -i option ok 14 # skip skip, run with -i option ok 15 # skip skip, run with -i option ok 16 # skip skip, run with -i option ok 17 # skip skip, run with -i option ok 18 # skip skip, run with -i option ok 14/18 skipped: skip, run with -i option t\midiout.......1..13 ok 1 ok 2 ok 3 ok 4 # skip need MIDI Output device ok 5 # skip need MIDI Output device ok 6 # skip need MIDI Output device ok 7 # skip need MIDI Output device ok 8 # skip need MIDI Output device ok 9 # skip need MIDI Output device ok 10 # skip need MIDI Output device ok 11 # skip need MIDI Output device ok 12 # skip need MIDI Output device ok 13 # skip need MIDI Output device ok 10/13 skipped: various reasons t\midistream....1..9 ok 1 ok 2 ok 3 # skip need MIDI Output device ok 4 # skip need MIDI Output device ok 5 # skip need MIDI Output device ok 6 # skip need MIDI Output device ok 7 # skip need MIDI Output device ok 8 # skip need MIDI Output device FAILED test 9 Failed 1/9 tests, 88.89% okay (less 6 skipped tests: 2 okay, 22.22%) t\sysex.........1..83 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok 25 ok 26 new: inconsistent paramter `mID' (0x44) and `mName' (Akai) at t\sysex.t line 87 ok 27 new: illegal manufacturer's ID: 0x80 at t\sysex.t line 90 ok 28 new: illegal manufacturer's ID: 0x8000 at t\sysex.t line 92 ok 29 new: illegal manufacturer's ID: 0x800000 at t\sysex.t line 94 ok 30 new: illegal manufacturer's ID: 0x1000000 at t\sysex.t line 96 ok 31 new : illegal device ID : -1 at t\sysex.t line 99 ok 32 new : illegal device ID : 0 at t\sysex.t line 101 ok 33 new : illegal device ID : 257 at t\sysex.t line 103 ok 34 ok 35 $VAR1 = bless( { 'mID' => 125, 'devID' => 128, 'mdlName' => undef, 'mName' => 'non-commercial use', 'mdlID' => undef }, 'Win32API::MIDI::SysEX' ); ok 36 ok 37 ok 38 ok 39 ok 40 ok 41 ok 42 ok 43 ok 44 ok 45 ok 46 ok 47 ok 48 ok 49 ok 50 ok 51 ok 52 $VAR1 = bless( { 'mID' => 125, 'devID' => 58, 'mdlName' => undef, 'mName' => 'non-commercial use', 'mdlID' => undef }, 'Win32API::MIDI::SysEX' ); ok 53 ok 54 ok 55 ok 56 ok 57 f0 7e 39 06 01 01 02 00 03 00 04 00 00 00 f7 :length 15 f0 7e 39 06 01 45 23 00 00 02 00 08 10 4e 00 00 f7 :length 17 80 44 f8 b3 3f 12 9a bb dc 77 :length 10 59 00 44 78 33 3f 12 1a 60 3b 5c 77 :length 12 80 44 f8 b3 3f 12 9a bb dc 77 :length 10 ok 58 $VAR1 = bless( { 'adSize' => 3, 'mID' => 65, 'devID' => 17, 'mdlName' => 'GS', 'mName' => 'Roland', 'idSize' => 1, 'mdlID' => 66 }, 'Win32API::MIDI::SysEX::Roland' ); GS Reset f0 41 10 42 12 40 00 7f 00 41 f7 :length 11 ok 59 Turn General MIDI System On f0 7e 7f 09 01 f7 :length 6 ok 60 Set Master Volume f0 7f 7f 04 01 20 1a f7 :length 8 ok 61 example 2 (manual P.104): Request the level for a drum note. f0 41 10 42 11 41 02 4b 00 00 01 71 f7 :length 13 ok 62 bulk dump: system parameter and all patch parameter f0 41 10 42 11 48 00 00 00 1d 10 0b f7 :length 13 ok 63 bulk dump: system parameter f0 41 10 42 11 48 00 00 00 00 10 28 f7 :length 13 ok 64 bulk dump: common patch parameter f0 41 10 42 11 48 00 10 00 01 00 27 f7 :length 13 ok 65 bulk dump: drum map1 all f0 41 10 42 11 49 00 00 00 0e 18 11 f7 :length 13 ok 66 $VAR1 = bless( { 'adSize' => 4, 'mID' => 65, 'devID' => 17, 'mdlName' => 'TD-6', 'mName' => 'Roland', 'idSize' => 2, 'mdlID' => 63 }, 'Win32API::MIDI::SysEX::Roland' ); example 1 (manual P.146) f0 41 10 00 3f 12 01 00 03 26 20 36 f7 :length 13 ok 67 example 2 (manual P.146) f0 41 10 00 3f 11 01 00 00 15 00 00 00 01 69 f7 :length 16 ok 68 bulk dump: all user song f0 41 10 00 3f 11 10 00 00 00 00 00 00 00 70 f7 :length 16 bulk dump: Setup f0 41 10 00 3f 11 40 00 00 00 00 00 00 00 40 f7 :length 16 bulk dump: drum kit 3 f0 41 10 00 3f 11 41 03 00 00 00 00 00 00 3c f7 :length 16 bulk dump: all drum kit f0 41 10 00 3f 11 41 7f 00 00 00 00 00 00 40 f7 :length 16 $VAR1 = bless( { 'adSize' => 3, 'mID' => 67, 'devID' => 1, 'mdlName' => 'XG', 'mName' => 'Yamaha', 'idSize' => 1, 'mdlID' => 76 }, 'Win32API::MIDI::SysEX::Yamaha' ); ok 69 XG System On f0 43 10 4c 00 00 7e 00 f7 :length 9 ok 70 Turn General MIDI System On f0 7e 7f 09 01 f7 :length 6 ok 71 Set Master Volume f0 7f 7f 04 01 20 1a f7 :length 8 ok 72 Set Master Tuning f0 43 10 27 30 00 00 0d 20 00 f7 :length 11 ok 73 Parameter Change f0 43 10 4c 01 23 45 55 28 f7 :length 10 ok 74 f0 43 10 4c 06 78 2b 7e 5c 3a 18 f7 :length 12 ok 75 Bulk Dump f0 43 00 4c 00 06 3f 7f 7f 61 62 63 64 65 7e 50 f7 :length 17 ok 76 Parameter Request f0 43 30 4c 2f 33 18 f7 :length 8 ok 77 Dump Request f0 43 20 4c 33 18 3f f7 :length 8 ok 78 $VAR1 = bless( { 'mID' => 8257536, '_WDSize' => 4096, 'devID' => 5, 'mdlName' => 'MIDIbox16E', 'mName' => 'non-commercial use', 'mdlID' => 5 }, 'Win32API::MIDI::SysEX::MIDIbox' ); ok 79 ok 80 ok 81 ok 82 ok 83 ok Failed 1/5 test scripts, 80.00% okay. 1/132 subtests failed, 99.24% okay. Failed Test Stat Wstat Total Fail Failed List of Failed ------------------------------------------------------------------------------- t\midistream.t 9 1 11.11% 9 30 subtests skipped. NMAKE : fatal error U1077: 'C:\cpanrun-5.8\build\5-8-0\bin\perl.exe' : return code '0xff' Stop.