Couple more tests

test/Analysis/PHP/Spec.hs

@@ -10,9 +10,16 @@ import SpecHelpers
 spec :: Spec
 spec = parallel $ do
   describe "evalutes PHP" $ do
-    it "include" $ do
+    it "include and require" $ do
       env <- evaluate "main.php"
-      let expectedEnv = [ (qualifiedName ["foo"], addr 0) ]
+      let expectedEnv = [ (qualifiedName ["foo"], addr 0)
+                        , (qualifiedName ["bar"], addr 1) ]
+      env `shouldBe` expectedEnv
+
+    it "include_once and require_once" $ do
+      env <- evaluate "main_once.php"
+      let expectedEnv = [ (qualifiedName ["foo"], addr 0)
+                        , (qualifiedName ["bar"], addr 1) ]
       env `shouldBe` expectedEnv
 
   where
@@ -22,4 +29,5 @@ spec = parallel $ do
       evaluateFiles phpParser
       [ fixtures <> entry
       , fixtures <> "foo.php"
+      , fixtures <> "bar.php"
       ]

test/fixtures/php/analysis/bar.php

@@ -0,0 +1,4 @@
+<?php
+function bar() {
+  return 1;
+}

test/fixtures/php/analysis/main.php

@@ -1,4 +1,6 @@
 <?php
 include 'foo.php';
+require 'bar.php';
 
 foo();
+bar();

test/fixtures/php/analysis/main_once.php

@@ -0,0 +1,6 @@
+<?php
+include_once 'foo.php';
+require_once 'bar.php';
+
+foo();
+bar();