use strict;
use warnings;
use Test::More;

my $pdf = <<'EOT';
/CapHeight 667
>>
endobj 
1 0 obj 
<<
/Subtype /Type1C
/Length 1194
2 0 obj 
>>
stream
3 0 obj 
  BXTBMO+URWTypewriterTOT-LigNar %øøø
                                     ûûúNú% Lm
÷/÷>¦ 7D(URW)++,Copyright 2003 by (URW)++ Design & Development/FSType 4 def    - B F H J O S   r ¡S»OÑûb&#49912;ø&#1400;÷Å÷°Àø÷K{zwû
}}û}ø­Ô{ûp{|}¾}ü­}}X{|}øMÅ}µ÷g°÷4µµÄ÷¢Áø£zÜ|k}÷&#899;ªr¨°m\\Hf|oaviZb{~&#532;¸¬×©v¡¤tuJY<Z{hYso^P4ÇUî&#7980;&#1708;.÷!±´e~L~u^r^sP
                            a±ÊÕ&#303;÷
.û.û-Þ/÷ÖÀ¢º®¥­}wH{Ue?^±lr©zº±´«¼¥©©¤´º±|p¤¨l^dòûIµ÷#µø+
´oµ±Ã÷ÐÁ¬ø.uovat_wJY¨¾{~~zuj¤vo¬º~Ѹ¯§­¶Ïø
                                          ²|3{zI\\ÎsO°8=1û\'û#Ý-÷¹¯®û-÷Ø·®|l©­gfAGfsken^uZÛ÷
           ÊÖï´ø´öÜÞÜKÁè÷.øLz4|~±}ûê}}e|~÷6|k}ðløãuyyuux¡¡¡¢ytñ´ø´oµðÁ÷ÁØ÷/øLz3|~²}ûê}}d|~÷=|e}÷i¸ïÀÉà&#1653;_9û}}e|~÷=|d}÷îSÁ%>TfIu ´ø´oµðÁÐ÷/øLz3|~²}ûê}}d|~÷M|U}÷\\&#1765;º¢0©}rec{rqyy{wød÷K¶
Ã
 ¶

  Ò
   
÷ø\\
endstream 
endobj 
4 0 obj 
<<
/Length 422
>>
EOT

my @tests = (
    { no => 1, start => 26, end => 33 },
    { no => 2, start => 68, end => 75 },
    { no => 3, start => 87, end => 94 },
    { no => 4, start => 1315, end => 1322 },
);

plan tests => 2 * @tests;
for my $t (@tests) {
    my $result = $pdf =~ qr/^$t->{no} 0 obj/m;
    is $-[0], $t->{start}, "No $t->{no} first match starts at $t->{start}";
    is $+[0], $t->{end},   "No $t->{no} first match ends at $t->{end}";
}