Checking if your kit is complete... Looks good Writing Makefile for Tk::Mirror Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. cp lib/Tk/Mirror.pm blib\lib\Tk\Mirror.pm Microsoft (R) Program Maintenance Utility Version 7.10.3077 Copyright (C) Microsoft Corporation. All rights reserved. C:\cpanrun\build\5-10-0\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(1, 'blib\lib', 'blib\arch')" t/*.t t/Tk-Mirror....1..119 ok 1 - use Tk::Mirror; ok 2 - use Tk; ok 3 ok 4 - MainWindow->can('title') ok 5 - MainWindow->can('geometry') ok 6 - MainWindow->can('Mirror') ok 7 ok 8 - The object isa Tk::Mirror ok 9 - Tk::Mirror->can('grid') ok 10 ok 11 - Tk::Mirror->can('Subwidget') ok 12 - Tk::Mirror->can('GetChilds') ok 13 ok 14 ok 15 - Tk::Label->can('configure') ok 16 ok 17 - Tk::Button->can('configure') ok 18 ok 19 - Tk::Frame->can('configure') ok 20 ok 21 - Tk::Button->can('configure') ok 22 ok 23 - Tk::Button->can('configure') ok 24 ok 25 - Tk::Label->can('configure') ok 26 ok 27 - Tk::BrowseEntry->can('configure') ok 28 ok 29 - Tk::BrowseEntry->can('configure') ok 30 ok 31 - Tk::Label->can('configure') ok 32 ok 33 - Tk::Label->can('configure') ok 34 ok 35 - Tk::Entry->can('configure') ok 36 ok 37 - Tk::Frame->can('configure') ok 38 ok 39 - Tk::BrowseEntry->can('configure') ok 40 ok 41 - Tk::Label->can('configure') ok 42 ok 43 - Tk::BrowseEntry->can('configure') ok 44 ok 45 - Tk::Frame->can('configure') ok 46 ok 47 - Tk::Frame->can('configure') ok 48 ok 49 - Tk::BrowseEntry->can('configure') ok 50 ok 51 - Tk::Entry->can('configure') ok 52 ok 53 - Tk::BrowseEntry->can('configure') ok 54 ok 55 - Tk::BrowseEntry->can('configure') ok 56 ok 57 - Tk::BrowseEntry->can('configure') ok 58 - Tk::Mirror->can('CompareDirectories') ok 59 - Tk::Mirror->can('UpdateLocalFromRemote') ok 60 - Tk::Mirror->can('UpdateRemoteFromLocal') ok 61 - Tk::Mirror->can('CheckEntryValues') ok 62 ok 63 - Tk::Mirror->can('InsertLocalTree') ok 64 - Tk::Mirror->can('InsertRemoteTree') ok 65 - Tk::Mirror->can('InsertLocalModified') ok 66 - Tk::Mirror->can('InsertRemoteModified') ok 67 - Tk::Mirror->can('UpdateAccess') ok 68 ok 69 - Tk::Mirror->can('StoreNewAccess') ok 70 ok 71 - Tk::Mirror->can('InsertStoredValues') ok 72 ok 73 - The object isa Net::MirrorDir ok 74 - The object isa Net::MirrorDir ok 75 - The object isa Net::UploadMirror ok 76 - The object isa Net::DownloadMirror ok 77 - Net::UploadMirror->can('new') ok 78 - Net::DownloadMirror->can('new') ok 79 - Net::UploadMirror->can('ReadLocalDir') ok 80 - Net::DownloadMirror->can('ReadLocalDir') ok 81 - Net::UploadMirror->can('ReadRemoteDir') ok 82 - Net::DownloadMirror->can('ReadRemoteDir') ok 83 - Net::UploadMirror->can('Connect') ok 84 - Net::DownloadMirror->can('Connect') ok 85 - Net::UploadMirror->can('Quit') ok 86 - Net::DownloadMirror->can('Quit') ok 87 - Net::UploadMirror->can('RemoteNotInLocal') ok 88 - Net::DownloadMirror->can('RemoteNotInLocal') ok 89 - Net::UploadMirror->can('LocalNotInRemote') ok 90 - Net::DownloadMirror->can('LocalNotInRemote') ok 91 - Net::UploadMirror->can('CheckIfModified') ok 92 - Net::DownloadMirror->can('CheckIfModified') ok 93 - Net::UploadMirror->can('StoreFiles') ok 94 - Net::DownloadMirror->can('StoreFiles') ok 95 - Net::UploadMirror->can('DeleteFiles') ok 96 - Net::DownloadMirror->can('DeleteFiles') ok 97 - Net::UploadMirror->can('MakeDirs') ok 98 - Net::DownloadMirror->can('MakeDirs') ok 99 - Net::UploadMirror->can('RemoveDirs') ok 100 - Net::DownloadMirror->can('RemoveDirs') ok 101 - Net::UploadMirror->can('Update') ok 102 - Net::DownloadMirror->can('Update') ok 103 ok 104 ok 105 ok 106 ok 107 ok 108 ok 109 - Tk::Mirror->can('UpdateUsr') ok 110 ok 111 - wrong user input # ok 112 - wrong ftp-server input # ok 113 - wrong password input # ok 114 - wrong dir should not exists # ok 115 - TestA should exists # ok 116 - wrong remote direction input # ok 117 - something is wrong with the user input # ok 118 - MainWindow->can('after') ok 119 Net::UploadMirror object destroyed Net::DownloadMirror object destroyed ok All tests successful. Files=1, Tests=119, 4 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU) C:\cpanrun\build\5-10-0\bin\perl.exe "-Iblib\lib" "-Iblib\arch" test.pl