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