Store server_set automated, but ignore for input.

We do need to store them, so that the sending knows which fields are being
requested, but we do not want them output to the client at all.

2 files changed, 73 insertions, 104 deletions

diff --git a/t/app/controller/report_new_open311.t b/t/app/controller/report_new_open311.t
index d79f7883c..58644eabb 100644
--- a/t/app/controller/report_new_open311.t
+++ b/t/app/controller/report_new_open311.t
@@ -39,28 +39,42 @@ my $contact2 = $mech->create_contact_ok(
     category => 'Graffiti Removal',
     email => '101',
 );
+$mech->create_contact_ok(
+    body_id => $body->id, # Edinburgh
+    category => 'Ball lighting',
+    email => '102',
+    extra => { _fields => [
+        { description => 'Size', code => 'size', required => 'True', automated => '' },
+        { description => 'Speed', code => 'speed', required => 'True', automated => 'server_set' },
+        { description => 'Colour', code => 'colour', required => 'True', automated => 'hidden_field' },
+    ] },
+);
 
 # test that the various bit of form get filled in and errors correctly
 # generated.
+my $empty_form = {
+    title         => '',
+    detail        => '',
+    photo1        => '',
+    photo2        => '',
+    photo3        => '',
+    name          => '',
+    may_show_name => '1',
+    username      => '',
+    email         => '',
+    phone         => '',
+    category      => '',
+    password_sign_in => '',
+    password_register => '',
+    remember_me => undef,
+};
 foreach my $test (
     {
         msg    => 'all fields empty',
         pc     => 'EH99 1SP',
         fields => {
-            title         => '',
-            detail        => '',
-            photo1        => '',
-            photo2        => '',
-            photo3        => '',
-            name          => '',
-            may_show_name => '1',
-            username      => '',
-            email         => '',
-            phone         => '',
-            category      => 'Street lighting',
-            password_sign_in => '',
-            password_register => '',
-            remember_me => undef,
+            %$empty_form,
+            category => 'Street lighting',
         },
         changes => {
             number => '',
@@ -95,6 +109,45 @@ foreach my $test (
             }
         ]
     },
+    {
+        msg    => 'automated things',
+        pc     => 'EH99 1SP',
+        fields => {
+            %$empty_form,
+            category => 'Ball lighting',
+        },
+        changes => {
+            size => '',
+        },
+        hidden => [ 'colour' ],
+        errors  => [
+            'This information is required',
+            'Please enter a subject',
+            'Please enter some details',
+            'Please enter your email',
+            'Please enter your name',
+        ],
+        submit_with => {
+            title => 'test',
+            detail => 'test detail',
+            name => 'Test User',
+            username => 'testopen311@example.com',
+            size => 'big',
+            colour => 'red',
+        },
+        extra => [
+            {
+                name => 'size',
+                value => 'big',
+                description => 'Size',
+            },
+            {
+                name => 'colour',
+                value => 'red',
+                description => 'Colour',
+            }
+        ]
+    },
   )
 {
     subtest "check form errors where $test->{msg}" => sub {
@@ -140,6 +193,12 @@ foreach my $test (
         };
         is_deeply $mech->visible_form_values, $new_values,
           "values correctly changed";
+        if ($test->{hidden}) {
+            my %hidden_fields = map { $_->name => 1 } grep { $_->type eq 'hidden' } ($mech->forms)[0]->inputs;
+            foreach (@{$test->{hidden}}) {
+                is $hidden_fields{$_}, 1;
+            }
+        }
 
         if ( $test->{fields}->{category} eq 'Street lighting' ) {
             my $result = scraper {
diff --git a/t/open311/populate-service-list.t b/t/open311/populate-service-list.t
index 149fb4b2a..7d4f491c6 100644
--- a/t/open311/populate-service-list.t
+++ b/t/open311/populate-service-list.t
@@ -646,96 +646,6 @@ subtest 'check bromely skip code' => sub {
     is_deeply $contact->get_extra_fields, $extra, 'all meta data saved for non bromley';
 };
 
-subtest 'check automated meta skip code' => sub {
-    my $processor = Open311::PopulateServiceList->new();
-
-    my $meta_xml = '<?xml version="1.0" encoding="utf-8"?>
-<service_definition>
-    <service_code>100</service_code>
-    <attributes>
-        <attribute>
-            <variable>true</variable>
-            <code>type</code>
-            <datatype>string</datatype>
-            <required>true</required>
-            <datatype_description>Type of bin</datatype_description>
-            <order>1</order>
-            <description>Type of bin</description>
-        </attribute>
-        <attribute>
-            <automated>server_set</automated>
-            <variable>true</variable>
-            <code>title</code>
-            <datatype>string</datatype>
-            <required>true</required>
-            <datatype_description>Type of bin</datatype_description>
-            <order>1</order>
-            <description>Type of bin</description>
-        </attribute>
-        <attribute>
-            <automated>hidden_field</automated>
-            <variable>true</variable>
-            <code>asset_id</code>
-            <datatype>string</datatype>
-            <required>true</required>
-            <datatype_description>Id of bin</datatype_description>
-            <order>1</order>
-            <description>Id of bin</description>
-        </attribute>
-    </attributes>
-</service_definition>
-    ';
-
-    my $contact = FixMyStreet::DB->resultset('Contact')->find_or_create(
-        {
-            body_id => 1,
-            email =>   '001',
-            category => 'Bins left out 24x7',
-            state => 'confirmed',
-            editor => $0,
-            whenedited => \'current_timestamp',
-            note => 'test contact',
-        }
-    );
-
-    my $o = Open311->new(
-        jurisdiction => 'mysociety',
-        endpoint => 'http://example.com',
-        test_mode => 1,
-        test_get_returns => { 'services/100.xml' => $meta_xml }
-    );
-
-    $processor->_current_open311( $o );
-    $processor->_current_body( $body );
-    $processor->_current_service( { service_code => 100 } );
-
-    $processor->_add_meta_to_contact( $contact );
-
-    my $extra = [ {
-            variable => 'true',
-            code => 'type',
-            datatype => 'string',
-            required => 'true',
-            datatype_description => 'Type of bin',
-            order => 1,
-            description => 'Type of bin'
-        },
-        {
-            automated => 'hidden_field',
-            variable => 'true',
-            code => 'asset_id',
-            datatype => 'string',
-            required => 'true',
-            datatype_description => 'Id of bin',
-            order => 1,
-            description => 'Id of bin'
-    } ];
-
-    $contact->discard_changes;
-
-    is_deeply $contact->get_extra_fields, $extra, 'only hidden automated meta data saved';
-};
-
 sub get_standard_xml {
     return qq{<?xml version="1.0" encoding="utf-8"?>
 <services>