test1050 1.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566
  1. <testcase>
  2. # Similar to test 253
  3. <info>
  4. <keywords>
  5. FTP-ipv6
  6. IPv6
  7. EPRT
  8. </keywords>
  9. </info>
  10. # Server-side
  11. <reply>
  12. # When doing LIST, we get the default list output hard-coded in the test
  13. # FTP server
  14. <datacheck mode="text">
  15. total 20
  16. drwxr-xr-x 8 98 98 512 Oct 22 13:06 .
  17. drwxr-xr-x 8 98 98 512 Oct 22 13:06 ..
  18. drwxr-xr-x 2 98 98 512 May 2 1996 .NeXT
  19. -r--r--r-- 1 0 1 35 Jul 16 1996 README
  20. lrwxrwxrwx 1 0 1 7 Dec 9 1999 bin -> usr/bin
  21. dr-xr-xr-x 2 0 1 512 Oct 1 1997 dev
  22. drwxrwxrwx 2 98 98 512 May 29 16:04 download.html
  23. dr-xr-xr-x 2 0 1 512 Nov 30 1995 etc
  24. drwxrwxrwx 2 98 1 512 Oct 30 14:33 pub
  25. dr-xr-xr-x 5 0 1 512 Oct 1 1997 usr
  26. </datacheck>
  27. </reply>
  28. # Client-side
  29. <client>
  30. <features>
  31. ipv6
  32. </features>
  33. <server>
  34. ftp-ipv6
  35. </server>
  36. <name>
  37. FTP-IPv6 dir list, EPRT with specified IP
  38. </name>
  39. <command>
  40. -g "ftp://%HOST6IP:%FTP6PORT/" -P ::1
  41. </command>
  42. # --interface doesn't accept an address surrounded by [] so %CLIENT6IP is out
  43. <precheck>
  44. perl -e "print 'Test requires default test client host address' if ( '%CLIENT6IP' ne '[::1]' );"
  45. </precheck>
  46. </client>
  47. # Verify data after the test has been "shot"
  48. <verify>
  49. # Strip all valid kinds of EPRT that curl can send
  50. <strippart>
  51. s/^(EPRT \|2\|::1\|)(.*)/$1/
  52. </strippart>
  53. <protocol>
  54. USER anonymous
  55. PASS ftp@example.com
  56. PWD
  57. EPRT |2|::1|
  58. TYPE A
  59. LIST
  60. QUIT
  61. </protocol>
  62. </verify>
  63. </testcase>