diff --git a/test/test_blob.rb b/test/test_blob.rb
index 5448f418..3c9a9156 100644
--- a/test/test_blob.rb
+++ b/test/test_blob.rb
@@ -289,6 +289,9 @@ class TestBlob < Test::Unit::TestCase
 
     # https://github.com/drupal/drupal/blob/7.x/modules/php/php.module
     assert_equal Language['PHP'], blob("drupal.module").language
+
+    # https://github.com/googleapi/googleapi/blob/master/demos/gmail_demo/gmail.dpr
+    assert_equal Language['Delphi'], blob("program.dpr").language
   end
 
   def test_lexer