farleyknight-ionize 0.1.0

data/spec/php_parser_spec.rb

@@ -0,0 +1,121 @@
+
+require 'spec'
+require 'lib/ionize'
+
+Ionize::Php::CharacterLimit = 50000
+
+Kernel.module_eval { alias :running :lambda }
+
+describe "Parsing Php" do
+  def parsing(text)
+    lambda { Ionize::Php.to_ast(text) }
+  end
+
+  def parsing_file(filename)
+    parsing(File.read(filename))
+  end
+
+  def parsing_fixture(filename)
+    parsing_file("spec/fixtures/#{filename}")
+  end
+
+  it "parses hello world as" do
+    parsing(%q{ print("Hello World!"); }).should_not raise_error
+  end  
+
+  it "parses a variable right next to a keyword" do
+    parsing(%q{ print$buffer; }).should_not raise_error
+  end
+
+  it "parses a preop and an op in one line" do
+    parsing(%q{!update($module) + $a;}).should_not raise_error
+  end
+
+  it "parses a trailing comma in the function args" do
+    parsing(%q{ array('#value' => "stuff",); }).should_not raise_error
+  end
+
+  it "parses a keyword touching a string" do 
+		parsing(%q{ echo"<table border=\"0\" width=\"100%\" cellspacing=\"1\"><tr>"; }).should_not raise_error
+  end
+
+  it "parses a postop" do
+    parsing("$i++;").should_not raise_error
+  end
+  
+  it "parses a braced lookup" do
+    parsing(%q{ $email{$i}; }).should_not raise_error
+  end
+
+  it "parses a class method call" do
+    parsing(%q{ MyClass::call($variable); }).should_not raise_error
+  end
+
+  it "parses a reference to an expression" do
+    parsing(%q{ $obj =& new $classname; }).should_not raise_error
+  end
+
+  it "parses an empty if else" do
+    parsing(%q{ if (true); else echo "whatever"; }).should_not raise_error
+  end
+
+  it "parses a backslash right after a variable, within a composite string" do 
+    parsing(%q{ require_once "./profiles/$profile/$profile.profile"; }).should_not raise_error
+  end
+
+  it "parses a variable with an array, within a string" do
+    parsing(%q{ $default_val = "$attributes[default]"; }).should_not raise_error
+  end
+
+  it "parses an echo statement with a one line if statement" do
+    parsing(%q{ if($sql_debug) echo "SQL query: "; }).should_not raise_error
+  end  
+
+  it "parses multi oo expr" do
+    parsing(%q{ $this->installer->config->getRegistry(); }).should_not raise_error
+  end
+
+  it "parses a complicated string" do
+    parsing(%q{ echo "<!-- tinyMCE -->
+			<script language=\"javascript\" type=\"text/javascript\" src=\"includes/tiny_mce/tiny_mce.js\"></script>";}).should_not raise_error
+  end
+
+  it "parses a variable within an array lookup within a string" do
+    parsing(%q{ $row = $db->sql_fetchrow($db->sql_query("SELECT mid from " . $prefix . "_modules where title='$modlist[$i]'")); }).should_not raise_error
+  end
+
+  it "parses two array lookups within a string" do
+    parsing(%q{ $db->sql_query("insert into " . $prefix . "_modules values (NULL, '$modlist[$i]', '$modlist[$i]', '0', '0', '1', '0', '')"); }).should_not raise_error
+  end
+
+  Dir['spec/fixtures/*.php'].each do |fixture|
+    it "parses #{fixture}" do
+      parsing_file(fixture).should_not raise_error
+    end
+  end
+
+  it "parses PHP-NUKE's SQL Layer" do
+    parsing_fixture("php_nuke/sql_layer.php").should_not raise_error
+  end
+  
+
+  it "parses a heredoc" do 
+    code = %q{
+$something =<<<EOF
+okay
+EOF;
+}
+    parsing(code).should_not raise_error
+  end
+ 
+  it "parses an empty if else within an empty if else" do
+    parsing(%q{
+if ($cond1);
+else 
+  if ($cond2);
+  else 
+    $regs[1] = "";    
+}).should_not raise_error
+  end
+
+end

data/spec/php_translator_spec.rb

@@ -0,0 +1,358 @@
+
+require 'spec'
+require 'lib/ionize'
+
+describe "Transforms Php" do
+  # teh php codez
+  def php_ast(text)
+    Ionize::Php.to_sexp(text)
+  end
+  
+  # teh ruby codez
+  def ruby_ast(text)
+    ParseTree.translate(text)
+  end
+
+  def php_file(filename)
+    php_ast(File.read(filename))
+  end
+
+  def ruby_file(filename)
+    ruby_ast(File.read(filename))    
+  end
+
+  def php_file_matches_ruby_file(filename)
+    php_file("spec/fixtures/#{filename}.php").should ==
+      ruby_file("spec/fixtures/#{filename}.rb")
+  end
+
+  it "transforms hello world" do
+    php_ast(%q{ print "hello world"; }).should == 
+      ruby_ast(%q{ print "hello world" })
+  end
+  
+  it "transforms an assignment statement" do 
+    php_ast(%q{ $something = true; }).should ==
+      ruby_ast(%q{ something = true })
+  end
+
+  it "transforms a one-line if statement" do
+    php_ast(%q{ $something = true; if ($something) { print "hey"; } }).should ==
+      ruby_ast(%q{ something = true; if something; print "hey"; end })
+  end
+
+  it "transforms a tertiary statement" do
+    php_ast(%q{ $something = (TRUE == TRUE) ? TRUE : FALSE; }).should ==
+      ruby_ast(%q{ something = (true == true) ? true : false })
+  end
+
+  it "tranforms a cast" do
+    php_ast(%q{ (double)microtime() * 100; }).should ==
+      ruby_ast(%q{ microtime().to_double * 100 })
+  end
+
+  it "transforms a simple function definition" do
+    php_ast(%q{ function hey() { print "there"; } }).should ==
+      ruby_ast(%q{ def hey; print "there"; end })
+  end
+
+  it "transforms a global variable" do |node|
+    php_ast(%q{ global $something; }).should ==
+      ruby_ast(%q{ $something })
+  end
+
+  it "transforms two global variables" do |node|
+    php_ast(%q{ global $something, $another; }).should ==
+      ruby_ast(%q{ global $something, $another })
+  end
+
+  it "transforms an echo statement" do |node|
+    php_ast(%q{ echo "something"; }).should ==
+      ruby_ast(%q{ echo "something" })
+  end
+
+  it "transforms a new Object to an Object.new" do |node|
+    php_ast(%q{ $result_set = new ResultSet; }).should == 
+      ruby_ast(%q{ result_set = ResultSet.new })
+  end
+
+  it "transforms a slightly more complicated function" do 
+    php_ast(%q{ function something($a, $b, $c) { return $a + $b + $c; } }).should ==
+      ruby_ast(%q{ def something(a, b, c); return a + b + c; end })
+  end
+
+  it "tranforms a function call" do 
+    # We will need to create an 'array' method to simulate Php's top-level function
+    php_ast(%q{ $something = array(); }).should ==
+      ruby_ast(%q{ something = array() })
+  end
+
+  it "transforms a complicated function header" do
+    php_ast(%q{ function add_column(&$ret, $attributes = array()) { print 'something'; } }).should ==
+      ruby_ast(%q{ def add_column(ret, attributes = array()); print 'something'; end })
+  end
+
+  it "transforms an error guard into a rescue nil" do
+    php_ast(%q{ $id = 0; $other = @mysql_close($id); }).should ==
+      ruby_ast(%q{ id = 0; other = mysql_close(id) rescue nil })
+  end
+
+  it "transforms a require_once into just a require" do
+    php_ast(%q{ require_once "PEAR.php"; }).should ==
+      ruby_ast(%q{ require "PEAR.php" })
+  end
+
+  it "transforms an include_once into a load" do
+    php_ast(%q{ include_once "PEAR.php"; }).should ==
+      ruby_ast(%q{ load "PEAR.php" })
+  end
+
+  it "transforms an include into a load" do
+    php_ast(%q{ include "PEAR.php"; }).should ==
+      ruby_ast(%q{ load "PEAR.php" })
+  end
+
+  it "transforms a class inheritance" do
+    php_ast(%q{ class Something extends Another { var $foo; } }).should ==
+      ruby_ast(%q{ class Something < Another; attr_accessor :foo; end })
+  end
+
+  it "transforms a class variable default into an attr_access_with_default" do
+    php_ast(%q{ class Something { var $foo = "string"; } }).should ==
+      ruby_ast(%q{ class Something; attr_accessor(:foo, "string"); end })
+  end
+
+  it "transforms a braced lookup into a regular array-style lookup" do
+    php_ast(%q{ $var = "string"; $var{0}; }).should ==
+      ruby_ast(%q{ var = "string"; var[0]; })
+  end
+
+  it "transforms an object attribute array assignment" do
+    php_ast(%q{ $method = 3; $classname = "Object"; $var = thing(); $var->attr[$method] = $classname; }).should ==
+      ruby_ast(%q{ method = 3; classname = "Object"; var = thing(); var.attr[method] = classname })
+  end
+
+
+  it "transforms an object dynamic variable assignment" do
+    # In php, you can do this:
+    #
+    #   $var = "foo";
+    #   $obj->$var = "bar";
+    #
+    # and this
+    #
+    #   $obj->foo == "bar" 
+    #
+    # would be true
+    #    
+    # 
+
+    php_ast(%q{ $var = "foo"; $obj = new Object; $obj->$var = "something"; }).should ==
+      ruby_ast(%q{ var = "foo"; obj = Object.new; obj.set(var, "something") })
+  end
+
+  it "transforms an object dynamic variable retrieve" do
+    php_ast(%q{ $var = "foo"; $obj = new Object; $obj->$var; }).should ==
+      ruby_ast(%q{ var = "foo"; obj = Object.new; obj.get(var) })
+  end
+
+  it "transforms an array lookup on an object" do
+    php_ast(%q{ $user = new User; $user->data['user_id']; }).should ==
+      ruby_ast(%q{ user = User.new; user.data["user_id"] })
+  end
+
+  it "transforms a while loop" do 
+    php_ast(%q{ while (TRUE) { print "hahaha!1!"; } }).should ==
+      ruby_ast(%q{ while true; print "hahaha!1!"; end })
+  end
+
+  it "transforms an empty fun call" do
+    php_ast(%q{ something(); }).should ==
+      ruby_ast(%q{ something() })
+  end
+
+  it "tranforms an attribute assignment" do
+    php_ast(%q{ $a = array(); $a[1] = 2; }).should ==
+      ruby_ast(%q{ a = array(); a[1] = 2 })
+  end
+
+  it "transforms an oo assignment" do
+    php_ast(%q{ $some = yup(); $some->thing = "other"; }).should ==
+      ruby_ast(%q{ some = yup(); some.thing = "other" })
+  end
+
+  it "transforms a multiple oo function call" do
+    php_ast(%q{ $obj = new Object(); $obj->installer->something(1); }).should ==
+      ruby_ast(%q{ obj = Object.new; obj.installer.something(1) })
+  end
+
+  it "transforms a multiple oo attribute" do
+    php_ast(%q{ $obj = new Object(); $obj->installer->something->config; }).should ==
+      ruby_ast(%q{ obj = Object.new; obj.installer.something.config })
+  end
+
+  it "transforms a return" do
+    php_ast(%q{ return $this->result; }).should == 
+      ruby_ast(%q{ return self.result })
+  end
+
+  it "tranforms Php's destructuring bind" do 
+    php_ast(%q{ list($hey, $whats, $up) = array("hey", "whats", "up"); }).should ==
+      ruby_ast(%q{ hey, whats, up = *array("hey", "whats", "up") })
+  end
+  
+  it "transforms string concatenation" do
+    php_ast(%q{ $check = "test"; $check .= "test"; }).should ==
+      ruby_ast(%q{ check = "test"; check << "test" })
+  end
+
+  it "transforms Php's string concat to Ruby's string concat" do
+    php_ast(%q{$column = "something"; $type = "something"; $table = "something"; "ALTER TABLE {". $table . "} ADD $column $type";}).should ==
+      ruby_ast(%q{column = "something"; type = "something"; table = "something"; "ALTER TABLE {" + table + "} ADD #{column} #{type}"})
+  end
+
+  it "tranforms an array access within a string" do 
+    php_ast(%q{ $something = array(); print "Things inside $something[okay]"; }).should == 
+      ruby_ast(%q{ something = array(); print "Things inside #{something['okay']}" })
+  end
+
+  it "transforms ++ into += 1" do
+    php_ast(%q{ $i++; }).should == ruby_ast(%q{ i += 1 })
+  end
+
+  it "transforms an array append" do
+    php_ast(%q{ $something = array(); $something[] = "other"; }).should ==
+      ruby_ast(%q{ something = array(); something << "other" })
+  end
+
+  it "transforms array lookup" do 
+    php_ast(%q{ $attributes = array(); $attributes['default']; }).should ==
+      ruby_ast(%q{ attributes = array(); attributes['default'] })
+  end
+
+  it "transforms threequals" do 
+    php_ast(%q{ $attributes = array(); $attributes['default'] === FALSE; }).should ==
+      ruby_ast(%q{ attributes = array(); attributes['default'] === false; })
+  end
+
+  it "transforms multiple args in the actual parameters" do
+    php_ast(%q{ $attributes = array(); array_key_exists('not null', $attributes); }).should == 
+      ruby_ast(%q{ attributes = array(); array_key_exists('not null', attributes) })
+  end
+
+  it "tranforms an array with hashed values" do
+    php_ast(%q{ array("something" => "er other", "with" => array("nested" => "values")); }).should ==
+      ruby_ast(%q{ array("something" => "er other", "with" => array("nested" => "values")) })
+  end
+
+  it "transforms an entire function" do 
+    php_ast(%q{ function db_add_column(&$ret, $table, $column, $type, $attributes = array()) { print 'something'; } }).should ==
+      ruby_ast(%q{ def db_add_column(ret, table, column, type, attributes = array()); print 'something'; end })
+  end
+
+  it "transforms a class method call" do
+    php_ast(%q{ MyClass::foo(1, 'bar', 'baz'); }).should ==
+      ruby_ast(%Q{ MyClass.foo(1, 'bar', 'baz') })
+  end
+
+  it "transforms a variable class name to a const_get" do
+    php_ast(%q{ $classname = "Foo"; obj =& new $classname; }).should == 
+      ruby_ast(%q{ classname = "Foo"; obj = Object.const_get(classname).new })
+  end
+
+  it "transforms an if statement" do
+    php_file_matches_ruby_file("if")
+  end
+
+  it "transforms a class definition" do
+    php_file_matches_ruby_file("class_def")
+  end
+  
+
+  it "transforms a function with an if statement" do
+    php_file_matches_ruby_file("fun_with_if")    
+  end
+
+  it "transforms a foreach to an each loop" do 
+    php_file_matches_ruby_file("foreach3")
+  end
+
+  it "transforms an even more complicated function" do
+    php_file_matches_ruby_file("fun_def2")
+  end
+
+  it "transforms a yet even more complicated function" do
+    php_file_matches_ruby_file("fun_def4")
+  end
+
+  it "unrolls a for loop into a while loop with setup and update operations" do 
+    php_file_matches_ruby_file("for_loop4")
+  end
+
+  it "transforms another for loop" do
+    php_file_matches_ruby_file("for_loop3")
+  end
+
+  it "transforms a switch case" do
+    php_file_matches_ruby_file("switch_case3")
+  end
+
+  it "transforms a heredoc" do
+    php_file_matches_ruby_file("heredoc")
+  end
+
+  it "transforms a switch case within a function definition" do 
+    php_file_matches_ruby_file("switch_case_with_rescue_nil")
+  end
+  
+  it "transforms a switch-case" do
+    php_file_matches_ruby_file("switch_case")
+  end
+
+  it "transforms an if statement with brackets" do
+    php_file_matches_ruby_file("if_with_brackets")
+  end
+
+  it "transforms a dangling else" do
+    # http://en.wikipedia.org/wiki/Dangling_else
+    php_file_matches_ruby_file("dangling_else")
+  end
+  
+  it "transforms a series of else if's" do 
+    php_file_matches_ruby_file("if_else_series")     
+  end
+
+  it "transforms boolean operators, and, not, and or" do
+    # The associativity on boolean operators is not being done
+    # correctly. Look into this again at some point
+    php_file_matches_ruby_file("boolean_operators")      
+  end
+
+  it "transforms an if (not something) into if (something) nil.. " do
+    php_file_matches_ruby_file("if_not")     
+  end
+
+  it "transforms an if statement with a boolean condition" do
+    php_file_matches_ruby_file("if_boolean")     
+  end
+
+  it "transforms an if else nested within an if" do
+    php_file_matches_ruby_file("if_else_nested")     
+  end
+
+  it "transforms another function with 3 if statements" do
+    php_file_matches_ruby_file("fun_with_ifs")     
+  end
+
+  it "transforms a longer if-else" do 
+    php_file_matches_ruby_file("long_if_else")     
+  end
+
+  it "transforms a function definition without error" do
+    lambda do
+      php_file("spec/fixtures/fun_def4.php")
+    end.should_not raise_error
+  end
+
+end
+