| 85 | | # Check if HoneyClient::Manager::Database support is enabled. |
|---|
| 86 | | my $DB_ENABLE = getVar(name => "enable", |
|---|
| 87 | | namespace => "HoneyClient::Manager::Database"); |
|---|
| 88 | | if ($DB_ENABLE) { |
|---|
| 89 | | # Make sure HoneyClient::Manager::Database loads. |
|---|
| 90 | | require_ok('HoneyClient::Manager::Database'); |
|---|
| 91 | | require HoneyClient::Manager::Database; |
|---|
| 92 | | } |
|---|
| | 83 | # Make sure HoneyClient::Manager::Database loads. |
|---|
| | 84 | BEGIN { use_ok('HoneyClient::Manager::Database') or diag("Can't load HoneyClient::Manager::Database package. Check to make sure the package library is correctly listed within the path."); } |
|---|
| | 85 | require_ok('HoneyClient::Manager::Database'); |
|---|
| | 86 | use HoneyClient::Manager::Database; |
|---|
| | 101 | |
|---|
| | 102 | # Make sure Data::Dumper loads |
|---|
| | 103 | BEGIN { use_ok('Data::Dumper') |
|---|
| | 104 | or diag("Can't load Data::Dumper package. Check to make sure the package library is correctly listed within the path."); } |
|---|
| | 105 | require_ok('Data::Dumper'); |
|---|
| | 106 | use Data::Dumper; |
|---|
| | 107 | } |
|---|
| | 108 | |
|---|
| | 109 | |
|---|
| | 110 | |
|---|
| | 111 | # =begin testing |
|---|
| | 112 | { |
|---|
| | 113 | SKIP: { |
|---|
| | 114 | skip "HoneyClient::Manager->init() is not implemented, yet.", 1; |
|---|
| | 115 | } |
|---|
| | 116 | } |
|---|
| | 117 | |
|---|
| | 118 | |
|---|
| | 119 | |
|---|
| | 120 | # =begin testing |
|---|
| | 121 | { |
|---|
| | 122 | SKIP: { |
|---|
| | 123 | skip "HoneyClient::Manager->destroy() is not implemented, yet.", 1; |
|---|
| | 124 | } |
|---|
| | 125 | } |
|---|
| | 126 | |
|---|
| | 127 | |
|---|
| | 128 | |
|---|
| | 129 | # =begin testing |
|---|
| | 130 | { |
|---|
| | 131 | SKIP: { |
|---|
| | 132 | skip "HoneyClient::Manager->run() can't be easily tested, yet.", 1; |
|---|
| | 133 | } |
|---|