#!/usr/bin/perl
use strict;
my $project = Project->new();
sub test_PBXProject() {
$project->set_buildSettings_with_keyValue('RoadHome', 'Debug', "CODE_SIGN_IDENTITY=code1", "DEVELOPMENT_TEAM=12");
$project->set_buildSettings_with_keyValue('RoadHome', 'Release', "CODE_SIGN_IDENTITY=code1", "DEVELOPMENT_TEAM=12");
$project->save();
}
test_PBXProject();