Detect Parrot assembly and bytecode individually, and add some tests

test/fixtures/hello.pasm

@@ -0,0 +1,5 @@
+#!/usr/bin/env parrot
+
+.pcc_sub :main main:
+    say "Hello!"
+    end

test/fixtures/hello.pir

@@ -0,0 +1,5 @@
+#!/usr/bin/env parrot
+
+.sub 'main' :main
+    say "Hello!"
+.end

test/test_blob.rb

@@ -82,6 +82,7 @@ class TestBlob < Test::Unit::TestCase
     assert blob("linguist.gem").binary?
     assert blob("octocat.ai").binary?
     assert blob("octocat.png").binary?
+    assert blob("hello.pbc").binary?
     assert !blob("README").binary?
     assert !blob("file.txt").binary?
     assert !blob("foo.rb").binary?
@@ -317,6 +318,11 @@ class TestBlob < Test::Unit::TestCase
 
     # https://github.com/olabini/ioke
     assert_equal Language['Ioke'], blob("hello.ik").language
+
+    # https://github.com/parrot/parrot
+    assert_equal Language['Parrot Internal Representation'], blob("hello.pir").language
+    assert_equal Language['Parrot Assembly'], blob("hello.pasm").language
+    assert_equal Language['Parrot Bytecode'], blob("hello.pbc").language
   end
 
   def test_lexer