← Back to branch summary

~ubuntu-branches/ubuntu/trusty/proftpd-dfsg/trusty

« back to all changes in this revision

Viewing changes to tests/t/lib/ProFTPD/Tests/Modules/mod_quotatab_sql.pm

  • Committer: Bazaar Package Importer
  • Author(s): Francesco Paolo Lovergine
  • Date: 2011-10-06 12:57:29 UTC
  • mfrom: (1.2.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20111006125729-wiq6d3yzf2ensafj
Tags: 1.3.4~rc3-1
* New upstream pre-release.
* Refreshed all patches.
* Changed patch xferstats.holger-preiss to fix a few warnings and use
  Getopt::Std instead of the old getopts.pl which will be removed soon or
  later in perl5. Thanks lintian.
* Policy bumped to 3.9.2.

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/t/lib/ProFTPD/Tests/Modules/mod_quotatab_sql.pm
418
418
      }
419
419
 
420
420
      my $buf = "Hello, World\n";
421
 
      $conn->write($buf, length($buf));
422
 
      $conn->close();
 
421
      $conn->write($buf, length($buf), 25);
 
422
      eval { $conn->close() };
423
423
 
424
424
      my $resp_code = $client->response_code();
425
425
      my $resp_msg = $client->response_msg();
656
656
      }
657
657
 
658
658
      my $buf = "Hello, World\n";
659
 
      $conn->write($buf, length($buf));
660
 
      $conn->close();
 
659
      $conn->write($buf, length($buf), 25);
 
660
      eval { $conn->close() };
661
661
 
662
662
      my $resp_code = $client->response_code();
663
663
      my $resp_msg = $client->response_msg();
881
881
      }
882
882
 
883
883
      my $buf = "Hello, World\n";
884
 
      $conn->write($buf, length($buf));
885
 
      $conn->close();
 
884
      $conn->write($buf, length($buf), 25);
 
885
      eval { $conn->close() };
886
886
 
887
887
      my $resp_code = $client->response_code();
888
888
      my $resp_msg = $client->response_msg();
1085
1085
  if ($pid) {
1086
1086
    eval {
1087
1087
      my $client = ProFTPD::TestSuite::FTP->new('127.0.0.1', $port, 1);
1088
 
 
1089
1088
      $client->login($user, $passwd);
1090
1089
 
1091
1090
      my $conn = $client->retr_raw('test.txt');
1095
1094
      }
1096
1095
 
1097
1096
      my $buf;
1098
 
      $conn->read($buf, 8192, 30);
1099
 
      $conn->close();
 
1097
      $conn->read($buf, 8192, 25);
 
1098
      eval { $conn->close() };
1100
1099
 
1101
 
      my $resp_code = $client->response_code();
1102
 
      my $resp_msg = $client->response_msg();
 
1100
      my $resp_code = $client->response_code(1);
 
1101
      my $resp_msg = $client->response_msg(1);
1103
1102
 
1104
1103
      my $expected;
1105
1104
 
1322
1321
      }
1323
1322
 
1324
1323
      my $buf;
1325
 
      $conn->read($buf, 8192, 30);
1326
 
      $conn->close();
 
1324
      $conn->read($buf, 8192, 25);
 
1325
      eval { $conn->close() };
1327
1326
 
1328
1327
      my $resp_code = $client->response_code();
1329
1328
      my $resp_msg = $client->response_msg();
1536
1535
      }
1537
1536
 
1538
1537
      my $buf = "Hello, World\n";
1539
 
      $conn->write($buf, length($buf));
1540
 
      $conn->close();
 
1538
      $conn->write($buf, length($buf), 25);
 
1539
      eval { $conn->close() };
1541
1540
 
1542
1541
      my $resp_code = $client->response_code();
1543
1542
      my $resp_msg = $client->response_msg();
1752
1751
      }
1753
1752
 
1754
1753
      my $buf = "Hello, World\n";
1755
 
      $conn->write($buf, length($buf));
1756
 
      $conn->close();
 
1754
      $conn->write($buf, length($buf), 25);
 
1755
      eval { $conn->close() };
1757
1756
 
1758
1757
      my $resp_code = $client->response_code();
1759
1758
      my $resp_msg = $client->response_msg();
1955
1954
      }
1956
1955
 
1957
1956
      my $buf = "Hello, World\n";
1958
 
      $conn->write($buf, length($buf));
1959
 
      $conn->close();
 
1957
      $conn->write($buf, length($buf), 25);
 
1958
      eval { $conn->close() };
1960
1959
 
1961
1960
      my $resp_code = $client->response_code();
1962
1961
      my $resp_msg = $client->response_msg();
2177
2176
      }
2178
2177
 
2179
2178
      my $buf = "Hello, World\n";
2180
 
      $conn->write($buf, length($buf));
2181
 
      $conn->close();
 
2179
      $conn->write($buf, length($buf), 25);
 
2180
      eval { $conn->close() };
2182
2181
 
2183
2182
      my $resp_code = $client->response_code();
2184
2183
      my $resp_msg = $client->response_msg();
2207
2206
      }
2208
2207
 
2209
2208
      $buf = "Hello, World\n";
2210
 
      $conn->write($buf, length($buf));
2211
 
      $conn->close();
 
2209
      $conn->write($buf, length($buf), 25);
 
2210
      eval { $conn->close() };
2212
2211
 
2213
2212
      $resp_code = $client->response_code();
2214
2213
      $resp_msg = $client->response_msg();
2445
2444
      }
2446
2445
 
2447
2446
      my $buf = "Hello, World\n";
2448
 
      $conn->write($buf, length($buf));
2449
 
      $conn->close();
 
2447
      $conn->write($buf, length($buf), 25);
 
2448
      eval { $conn->close() };
2450
2449
 
2451
2450
      my $resp_code = $client->response_code();
2452
2451
      my $resp_msg = $client->response_msg();
2678
2677
      }
2679
2678
 
2680
2679
      my $buf = "Hello, World\n";
2681
 
      $conn->write($buf, length($buf));
2682
 
      $conn->close();
 
2680
      $conn->write($buf, length($buf), 25);
 
2681
      eval { $conn->close() };
2683
2682
 
2684
2683
      my $resp_code = $client->response_code();
2685
2684
      my $resp_msg = $client->response_msg();
2708
2707
      }
2709
2708
 
2710
2709
      $buf = "Hello, World\n";
2711
 
      $conn->write($buf, length($buf));
2712
 
      $conn->close();
 
2710
      $conn->write($buf, length($buf), 25);
 
2711
      eval { $conn->close() };
2713
2712
 
2714
2713
      $resp_code = $client->response_code();
2715
2714
      $resp_msg = $client->response_msg();
2918
2917
      }
2919
2918
 
2920
2919
      my $buf = "Hello, World\n";
2921
 
      $conn->write($buf, length($buf));
2922
 
      $conn->close();
 
2920
      $conn->write($buf, length($buf), 25);
 
2921
      eval { $conn->close() };
2923
2922
 
2924
2923
      my $resp_code = $client->response_code();
2925
2924
      my $resp_msg = $client->response_msg();
3155
3154
      }
3156
3155
 
3157
3156
      my $buf = "Hello, World\n";
3158
 
      $conn->write($buf, length($buf));
3159
 
      $conn->close();
 
3157
      $conn->write($buf, length($buf), 25);
 
3158
      eval { $conn->close() };
3160
3159
 
3161
3160
      my $resp_code = $client->response_code();
3162
3161
      my $resp_msg = $client->response_msg();
3185
3184
      }
3186
3185
 
3187
3186
      $buf = "Hello, World\n";
3188
 
      $conn->write($buf, length($buf));
3189
 
      $conn->close();
 
3187
      $conn->write($buf, length($buf), 25);
 
3188
      eval { $conn->close() };
3190
3189
 
3191
3190
      $resp_code = $client->response_code();
3192
3191
      $resp_msg = $client->response_msg();
3431
3430
      }
3432
3431
 
3433
3432
      my $buf = "Hello, World\n";
3434
 
      $conn->write($buf, length($buf));
3435
 
      $conn->close();
 
3433
      $conn->write($buf, length($buf), 25);
 
3434
      eval { $conn->close() };
3436
3435
 
3437
3436
      my $resp_code = $client->response_code();
3438
3437
      my $resp_msg = $client->response_msg();
3672
3671
      }
3673
3672
 
3674
3673
      my $buf = "Hello, World\n";
3675
 
      $conn->write($buf, length($buf));
3676
 
      $conn->close();
 
3674
      $conn->write($buf, length($buf), 25);
 
3675
      eval { $conn->close() };
3677
3676
 
3678
3677
      my $resp_code = $client->response_code();
3679
3678
      my $resp_msg = $client->response_msg();
3702
3701
      }
3703
3702
 
3704
3703
      $buf = "Hello, World\n";
3705
 
      $conn->write($buf, length($buf));
3706
 
      $conn->close();
 
3704
      $conn->write($buf, length($buf), 25);
 
3705
      eval { $conn->close() };
3707
3706
 
3708
3707
      $resp_code = $client->response_code();
3709
3708
      $resp_msg = $client->response_msg();
3922
3921
      }
3923
3922
 
3924
3923
      my $buf = "Hello, World\n";
3925
 
      $conn->write($buf, length($buf));
3926
 
      $conn->close();
 
3924
      $conn->write($buf, length($buf), 25);
 
3925
      eval { $conn->close() };
3927
3926
 
3928
3927
      my $resp_code = $client->response_code();
3929
3928
      my $resp_msg = $client->response_msg();
4151
4150
      }
4152
4151
 
4153
4152
      my $buf = "Hello, World\n";
4154
 
      $conn->write($buf, length($buf));
4155
 
      $conn->close();
 
4153
      $conn->write($buf, length($buf), 25);
 
4154
      eval { $conn->close() };
4156
4155
 
4157
4156
      my $resp_code = $client->response_code();
4158
4157
      my $resp_msg = $client->response_msg();
4181
4180
      }
4182
4181
 
4183
4182
      $buf = "Hello, World\n";
4184
 
      $conn->write($buf, length($buf));
4185
 
      $conn->close();
 
4183
      $conn->write($buf, length($buf), 25);
 
4184
      eval { $conn->close() };
4186
4185
 
4187
4186
      $resp_code = $client->response_code();
4188
4187
      $resp_msg = $client->response_msg();
4419
4418
      }
4420
4419
 
4421
4420
      my $buf = "Hello, World\n";
4422
 
      $conn->write($buf, length($buf));
4423
 
      $conn->close();
 
4421
      $conn->write($buf, length($buf), 25);
 
4422
      eval { $conn->close() };
4424
4423
 
4425
4424
      my $resp_code = $client->response_code();
4426
4425
      my $resp_msg = $client->response_msg();
4652
4651
      }
4653
4652
 
4654
4653
      my $buf = "Hello, World\n";
4655
 
      $conn->write($buf, length($buf));
4656
 
      $conn->close();
 
4654
      $conn->write($buf, length($buf), 25);
 
4655
      eval { $conn->close() };
4657
4656
 
4658
4657
      my $resp_code = $client->response_code();
4659
4658
      my $resp_msg = $client->response_msg();
4682
4681
      }
4683
4682
 
4684
4683
      $buf = "Hello, World\n";
4685
 
      $conn->write($buf, length($buf));
4686
 
      $conn->close();
 
4684
      $conn->write($buf, length($buf), 25);
 
4685
      eval { $conn->close() };
4687
4686
 
4688
4687
      $resp_code = $client->response_code();
4689
4688
      $resp_msg = $client->response_msg();
4894
4893
      }
4895
4894
 
4896
4895
      my $buf = "Hello, World\n";
4897
 
      $conn->write($buf, length($buf));
4898
 
      $conn->close();
 
4896
      $conn->write($buf, length($buf), 25);
 
4897
      eval { $conn->close() };
4899
4898
 
4900
4899
      my $resp_code = $client->response_code();
4901
4900
      my $resp_msg = $client->response_msg();
5424
5423
  $self->assert(qr/$expected/, $bytes_xfer_used,
5425
5424
    test_msg("Expected $expected, got $bytes_xfer_used"));
5426
5425
 
5427
 
  $expected = 0;
 
5426
  $expected = -1;
5428
5427
  $self->assert($expected == $files_in_used,
5429
5428
    test_msg("Expected $expected, got $files_in_used"));
5430
5429
 
6385
6384
      }
6386
6385
 
6387
6386
      my $buf = "Hello, World\n";
6388
 
      $conn->write($buf, length($buf));
6389
 
      $conn->close();
 
6387
      $conn->write($buf, length($buf), 25);
 
6388
      eval { $conn->close() };
6390
6389
 
6391
6390
      my $resp_code = $client->response_code();
6392
6391
      my $resp_msg = $client->response_msg();
6626
6625
      }
6627
6626
 
6628
6627
      my $buf = "Hello, World\n";
6629
 
      $conn->write($buf, length($buf));
6630
 
      $conn->close();
 
6628
      $conn->write($buf, length($buf), 25);
 
6629
      eval { $conn->close() };
6631
6630
 
6632
6631
      my $resp_code = $client->response_code();
6633
6632
      my $resp_msg = $client->response_msg();