HTMLMediaElement::webMediaPlayer() should never be null if m_readyState >= HAVE_METADATA (media eng…

LayoutTests/http/tests/media/video-load-metadata-decode-error.cgi

+#!/usr/bin/perl -wT
+
+use strict;
+
+use CGI;
+use File::stat;
+
+my $query = new CGI;
+
+my $name = $query->param('name');
+my $filesize = stat($name)->size;
+
+# Get MIME type.
+my $type = $query->param('type');
+if (!$type) {
+    print "Status: 400 Bad Request\r\n";
+    return;
+}
+
+my $rangeEnd = $filesize - 1;
+
+# Print HTTP Header, disabling cache.
+print "Cache-Control: no-cache\n";
+print "Content-Length: " . $filesize . "\n";
+print "Content-Type: " . $type . "\n";
+
+print "\n";
+
+open FILE, $name or die;
+binmode FILE;
+my ($data, $n);
+my $total = 0;
+my $break = $filesize / 4;
+my $string = "corrupt video";
+seek(FILE, 0, 0);
+
+while (($n = read FILE, $data, 1024) != 0) {
+    print $data;
+
+    $total += $n;
+    if ($total >= $filesize) {
+        last;
+    }
+    
+    if ($total >= $break) {
+        print $string;
+        $total += length($string);
+    }
+
+}
+close(FILE);