/[eiffelstudio]/branches/eth/eve/Src/library/abel/apps/test/abel_test/ps_experiments.e
ViewVC logotype

Diff of /branches/eth/eve/Src/library/abel/apps/test/abel_test/ps_experiments.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 89141 by romanschmocker, Mon Jul 9 16:28:45 2012 UTC revision 89142 by romanschmocker, Wed Jul 18 17:15:12 2012 UTC
# Line 81  feature Line 81  feature
81                          print (attached {LIST [PERSON]} list)                          print (attached {LIST [PERSON]} list)
82                  end                  end
83    
84          test_sqlite_multiple_open_connections          test_sqlite_failure_for_multiple_open_connections
85                  local                  local
86                          conn1, conn2: detachable SQLITE_DATABASE                          conn1, conn2: detachable SQLITE_DATABASE
87                          file: STRING                          file: STRING
88                            retried: BOOLEAN
89                  do                  do
90                          file := "test.db"                          if not retried then
91                          create conn1.make_create_read_write (file)                                  file := "test.db"
92                          create conn2.make_create_read_write (file)                                  create conn1.make_create_read_write (file)
93                          conn1.begin_transaction (False)                                  create conn2.make_create_read_write (file)
94                          conn2.begin_transaction (False)                                  conn1.begin_transaction (False)
95                                    conn2.begin_transaction (False)
96                            end
97                  rescue                  rescue
98                          check attached conn2 as c and then attached c.last_exception as ex then                          check attached conn2 as c and then attached c.last_exception as ex then
99                                  print (ex.meaning)                                  print (ex.meaning)
100                          end                          end
101                            retried:= True
102                            retry
103                  end                  end
104    
105          test_constant_initialized          test_constant_initialized

Legend:
Removed from v.89141  
changed lines
  Added in v.89142

  ViewVC Help
Powered by ViewVC 1.1.23